














































GFA-BASIC 

Weltweit über 100 OOOmal im Einsatz! 



(\&A 


GFA-BASIC 3.5 EWS ST Weiterentwicklung des GFA-BASIC 3.0 EWS ST mit 35 zu- ^ Ä 

sätzlichen Befehlen aus der linearen Algebra und Kombinatorik. Außerdem verbesserte DfVI 268/ — 
Editor-Eigenschaften (Funktionen falten und Suche in Kopfzeilen gefalteter Funktionen bzw. Prozeduren) 

GFA-BASIC 2.0 EWS ST 

Das GFA-BASIC 2.0 Entwicklungssystem ST. Interpreter-!- Compiler für Einsteiger. DfVI 49/90 

GFA-GUP GEM UTILITY-PACKAGE DM 149,- 


GFA-BASIC KONVERTER nach C 


DM 498 


GFA-ASSEMBLER ST 

H 

Professioneller Makro-Assembler für 68000-Programmierer: Leistungsfähiger 

DM 149,- 

Editor mit integriertem Assembler und Linker. Nachladbarer Debugger 

GFA-BÜCHER 





G FA-BASIC 3.0 ST Training Der ideale Einstieg in die Version 3.0 ___ 

mit 14Themenschwerpunkten. 272 Seiten, Hardcover, ISBN 3-89317-005-7 DfVI 29,— 

GFA-BASIC ST: Version 3.0 DasUmsteigerbuch 0 «% 

394 Seiten, Hardcover, inkl. Diskette, ISBN 3-89317-004-9 DfVI 59,— 

GFA-BASIC Programmierung Programmierhilfe von der Idee, zum Entwurf, 

zum Programm. Ca. 300 Seiten, Hardcover, inkl. Diskette ISBN 3-89317-003-0 DfVI 49,— 

GFA-BASIC-Buch Frank Ostrowski (ST) Frank Ostrowski über sein GFA-BASIC 
(Programmoptimierung). Ca.300 Seiten, Hardcover, inkl. Diskette ISBN 3-89317-001-4 

Das GFA-Anwenderbuch Wann GFA-BASIC?Wann GFA-ASSEMBLER? 

Die Antwort finden Sie in dem neuen GFA-Anwenderbuch 
Ca. 450 Seiten, Hardcover, inkl. Diskette, ISBN 3-89317-011-1 DfVI 59,— 


DM 79,- 


GFA-DRAFT-plus ST V. 3.1 


Leistungsfähiges, zweidimensionales CAD-Programm, 
seit Jahren bewährt, tausendfach im Einsatz. Jetzt erweitert 
durch Spline-Funktionen, Metafile-Treiber und DXF-Konverter. 


DM398 





Campus- und Studentenversion: Preis auf Anfrage. 



GFA Systemtechnik GmbH 
Heerdter Sandberg 30 
D-4000 Düsseldorf 11 
Tel. 0211/55 04-0 Fax 0211/55 04-44 
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Liebe GFA-CLUB-Mitglieder, 


daß die Menschen gewöhnlich zu Be¬ 
ginn eines Jahres viele gute Vorsätze 
fassen, ist ein alter Hut. Jeder weiß 
auch, was dann später daraus wird, 
nämlich nichts oder jedenfalls nicht 
viel... 

Der GFA-CLUB scheint allerdings 
im Moment eine rühmliche Aus¬ 
nahme dieser Regel zu sein: Nicht 
nur, daß Sie sich offensichtlich vorge¬ 
nommen haben, die von uns lange 
vermißten Beiträge für die CLUB- 
Nachrichten zu schreiben, nein, Sie 
setzen Ihre Vorsätze sogar in die Tat 
um! Tatsächlich kann die Redaktion 
im Moment so viele Einsendungen 
von Artikeln wie noch nie verzeich¬ 
nen, mit der Folge, daß leider nicht 
alle Ihre Beiträge in dieser Ausgabe 
abgedruckt werden können. Die¬ 
jenigen, die dieses Mal nicht zum 
Zuge kommen, müssen wir leider auf 
die nächste Ausgabe vertrösten. 


Und nun unsere ganz große Bitte: 
Schicken Sie auch weiterhin Ihre Er¬ 
fahrungen, Beobachtungen, Tips, 
Programmkritiken usw. an uns! 
Schließlich lebt der CLUB von dem 
Engagement und der Tätigkeit aller 
Beteiligten. Wir als GFA können nur 
den Rahmen für diese Aktivitäten 
bieten, und selbst das ist immer noch 
mit einem großen Aufwand an 
Kosten und Arbeitszeit verbunden. 

Das leitet direkt über zu einem 
Thema, das in den letzten Tagen für 
viel Aufregung gesorgt hat: die Fort¬ 
führung des GFA-CLUBs im näch¬ 
sten Jahr. Wie wir Ihnen schon mitge¬ 
teilt haben, werden wir uns bemühen, 
den CLUB außerhalb der GFA zu 
etablieren, wobei die GFA eine Paten¬ 
schaft übernehmen könnte. Inzwi¬ 
schen haben sich schon einige sehr 
engagierte Interessenten bei uns ge¬ 
meldet, die sich zu dieser Aufgabe 


bereiterklärt haben, so daß wir im 
Moment bezüglich der Weiter¬ 
führung des CLUBs optimistisch 
sind. Natürlich werden wir Sie sofort 
informieren, sobald die Angelegen¬ 
heit definitiv entschieden ist. 

Noch ein Wort zur bevorstehenden 
CeBIT *90 in Hannover: Wie jedes 
Jahr wird die GFA Systemtechnik 
auch dieses Mal mit einem eigenen 
Stand vertreten sein, und zwar in 
Halle 3 Stand D 45. Alle GFA- 
CLUB-Mitglieder sind herzlich ein¬ 
geladen, uns zu besuchen und einmal 
direkt mit den GFA-Mitarbeitem und 
Programmierern zu sprechen. 

Vorgestellt wird u.a. das neue BASIC 
3.5 für den Amiga ... 

Und nun viel Spaß mit der neuen Aus¬ 
gabe Ihrer GFA-CLUB-Nachrichten. 

Joachim Eckstein 




RR - SOFT 
Reinhard Rückemann 
Grund Straße 63 
5600 WUPPERTAL 22 
Tel. 0202 / 6403 89 


Ein Programm von RR Soft 


Die Programmierhilfe 

für alle G FA - B AS IC - P r o g r a m m i e r e r 

Anzeige aller Befehle auf Tastendruck 

Alle Eingabeparameter die Befehlsstruktur und 
eine Erklärung der Befehle werden angezeigt 

Als Accessory beim Programmieren auf ruf bar 
Für den Programmieranfänger als Lernhilfe 

Für den versierten Programmierer als 
unentbehrliche Gedächtnisstütze 

HELP .GFA erspart das lästige Blättern im Handbuch. 










GFA-CLUB-Nachrichten Nr. 2 - 90 


5 


GFA-BASIC 3.5 


Als vor ungefähr vier Jahren GFA das 
neue Basic von Herrn Ostrowski auf 
den Markt brachte, waren sowohl 
Fachpresse als auch Anwender/innen 
von den Möglichkeiten und der 
Schnelligkeit dieses neuen, so ganz 
anderen Dialektes begeistert. 

Die Entwicklung ging weiter über 
GFA-BASIC 2.0 hin zum EWS 3.0, 
einem neuen, offenen Konzept. 
Jedesmal mit Verbesserungen sowohl 
in der Anwenderfreundlichkeit als 
auch in Bezug auf Geschwindigkeit. 

Mit dem EWS 3.5, dem ’MAT 3.5’, 
ist meines Erachtens nach nun ein 
’Endpunkt’ der Entwicklungsreihe 
für den ATARI erreicht. 

Sicherlich werden auch jetzt noch 
Wünsche an Herrn Ostrowski her¬ 
angetragen werden, diesen Befehl 
oder jene Funktion direkt in das 
Sytem zu integrieren, um bei i.d. 
Regel sehr speziellen Anwendungen 
noch mehr Komfort zu haben. 

Aber - das EWS ab 3.0 ist ein offenes 
System mit genial einfacher und viel¬ 
seitiger Zubindung von allen nur 
möglichen und anwendungsspezifi¬ 
schen Spezialitäten’. 

Und so ist jetzt und hier der Kreis der 
Anwender gefordert. Ich stelle mir 
vor, daß sehr bald - nach logischen 
Anwendungsgruppen organisiert - 
Ergänzungsprogramme für GFA- 
BASIC entstehen. Sie stehen dann für 
das entsprechende Verwendungsge¬ 
biet dem jeweiligen Anwender se¬ 
lektiv zur Verfügung, ohne daß das 
EWS unnötig aufgebläht werden 
muß. 

Vielleicht könnte hierfür GFA bzw. 
die zukünftige Clubleitung die 
Schirmherrschaft'’ als Koordinator 
übernehmen? 

Und damit wären wir beim Spitzen¬ 
produkt ’3.5’. Neben der Fakultätsbe¬ 
rechnung und zwei weiteren Be¬ 
fehlen aus dem Bereich der 
Kombinatorik, der flexibleren Hand¬ 
habung des Data-Pointers und 
einigen weiteren Verbesserungen im 
Editor besticht ein grundsätzlich voll¬ 
ständiger Matrizen-Befehlssatz. 

Darüber hinaus sind einige kleinere 
’Bugs’ aus dem bisherigen 3.0x aus¬ 
gemerzt und das System ’fast’ fehler¬ 
frei. Ein 'vollkommen’ fehlerfreies 


Programm dieses Komplexitäts¬ 
grades wird es wohl auch in Zukunft 
weder hier noch anderswo geben. 

Insofern halte ich die Strategie von 
der GFA Systemtechnik für richtig, 
erforderliche kleinere Änderungen in 
die Produktlinie 3.5 zu investieren. 
Auch aus diesem Grund ist einem 
Aufsteigen von 3.0 auf 3.5 zuzuraten 
- von 2.0x nach 3.5 sowieso. 

Es ist nun nicht so, daß der Befehls¬ 
bereich mit ’MAT ..’ ausschließlich 
den ’Berufsmathematikem’ Vorbe¬ 
halten ist. Die Anwendungsmöglich¬ 
keiten in ganz 'normalen’ Bereichen 
und auch ohne fundierte Kenntnisse 
der Linearen Algebra sind so umfang¬ 
reich und eigentlich nur von der 
eigenen Phantasie begrenzt. Prinzi¬ 
piell rechnet wohl jeder schon immer 
mit Matrizen (System von m*n 
Größen in einem rechteckigen Sche¬ 
ma mit m Zeilen und n Spalten). 


PROCEDURE korrekturl 
PRINT CHR$ (7); 

MAT PRINT a_feld(),7 / 2 
PRINT 

INPUT " Eingabe o.k (J/N) ";ok$ 
IF UPPER$(ok$)<>"J" 
korrektur2 


Andererseits geben die neuen Mög¬ 
lichkeiten jetzt aber auch Anreiz und 
Gelegenheit, sich intensiver mit der 
Matrizentheorie zu beschäftigen und 
in eigenen Anwendungen zu verwen¬ 
den. 

Die hier gegebenen Anregungen sind 
also nicht für 'Spezialisten’ in Li¬ 
nearer Algebra und Matrizentheorie 
gedacht, sondern für Einsteiger und 
Aufsteiger. 

Das Listing ’l’ ’manuelle eingabe’ 
stellt vorab eine flexible ’zu-Fuß’- 
Eingabe einschließlich einer ein¬ 
fachen Eingabekorrektur vor. Sie soll 
bei eigenen Experimenten von den lä¬ 
stigen Data-Zeilen befreien. 

Die Operationsbefehle MAT ADD 
und MAT SUB sind so verständlich, 
daß sie hier nicht zu behandeln sind. 
Ebenso die Multiplikation einer Ma¬ 
trix mit einem gemeinsamen Faktor: 
MAT MULa(),x. 


.n3 ! liating 1 m»n_«ing,gfa für gfa-club 3/4-90 k.h.«chulx« 

DEFWRD "i-z" ! 

Izeilen a() 

Ispalten a() u. zeilen b() 

Ispalten b() 


m=3 

n=2 

o=4 

DIM a (m, n), b (n, o) 


DIM a_feld(m, n) 
m$="a" 
eingabe(m,n) 

MAT CPY a () =a_feld() 
ERASE a feld() 


larbeitsfeld ==> hier für a() 

t 

Ivariable eingabeschleife mit korrektur 
lübertrag in original-matrix 
larbeitsfeld entfernen 


DIM a_feld(n / o) 
m$="b" 
eingabe (n,o) 

MAT CPY b()=a_feld() 
ERASE a feld () 


!arbeitsfeld 
! w. o. 


=> hier für b () 


anzeige 
~INP (2) 
EDIT 


PROCEDURE eingabe(z_eilen,s_palten) 

PRINT "Eingabe "+m$+"(";z_eilen;",";s_palten;")" 
FOR i=l TO z_eilen 
FOR j=l TO s_palten 

PRINT AT(1,3);"a_feld(";i;",j; M ) = 

INPUT "a_feld(i, j) 

PRINT AT(12,3);" 

NEXT j 
NEXT i 
korrekturl 
RETURN 
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ENDIF 

CLS 

RETURN 

PROCEDURE korrektur2 

INPUT "ändern: Zeile,Spalte,Betrag z2,sp2,betrag 
IF z2>z_eilen OR z2<l OR sp2>s_palten OR sp2<l 
PRINT CHR$ (7); 

PRINT " ungültige Zeile/Spalte " 
korrektur2 
ELSE 

a_feld(z2,sp2)=betrag 
PRINT AT(1,4); 

PRINT CHR$ (27)+"J"; 

MAT PRINT a_feld(),7,2 

INPUT " Eingabe o.k (J/N) ";ok$ 

IF UPPERS(ok$)<>"J" 
korrektur2 
ENDIF 
ENDIF 
RETURN 

PROCEDURE anzeige 
CLS 

PRINT " MAT INPUT 'per Hand' über variable Eingabe 

schleife mit Korrektur" 

PRINT STRINGS(77,".") 

PRINT 

PRINT " a (";m; ", ";n; ") " 

MAT PRINT a () , 6,1 
PRINT 

PRINT " b(";n;",";o;")" 

MAT PRINT b() ,6,1 
RETURN 


Das Listing ’2’ ’maüLmur stellt den Befehl MAT MUL 
c()=a()*b0 - Produkt aus zwei miteinander verketteten Ma¬ 
trizen - vor. Zur Verdeutlichung habe ich in der Procedure 
’ manuell’ den manuellen Aufwand über Schleifen dem 
neuen MAT-Befehl gegenübergestellt 


FOR i=l TO n leinlesen b() 

FOR j=l TO o 
READ b(i,j) 

NEXT j 
NEXT i 

FOR i=l TO m !produktbildung 

FOR j=l TO o !c()=a ()*b() 

FOR k=l TO n 

c(i, j)=c(i, j)+a(i,k)*b(k, j) 

NEXT k 
NEXT j 
NEXT i 
RETURN 

PROCEDURE drei_fuenf 
MAT READ a () 

MAT READ b() 

MAT MUL c()=a()*b() 

RETURN 

PROCEDURE anz_man 

titel$="Matrizenprodukt von a(" 
forml$="###.#" 
form2$="#####.#" 

CLS 

FOR i=l TO n 

PRINT TAB(5*n);" | "; 

FOR k=l TO o 

PRINT USING form2$,b (i,k); 

NEXT k 
PRINT 
NEXT i 

PRINT AT(4,n+1);STRINGS(6*n+6*o+4,"-") 

FOR i=l TO m 
FOR j=l TO n 

PRINT AT (5*j,1+n+i);USING formlS,a(i, j) ; 
NEXT j 

PRINT " |";TAB(5*n+3); 

FOR k=l TO o 

PRINT USING form2$,c (i,k); 

NEXT k 
PRINT 
NEXT i 

PRINT " ";STRINGS(6*n+6*o+4, 

RETURN 


!einiesen a () 
leinlesen b() 

!produktbildung 


Dem gleichen Zweck dient die Procedure ’anz_man’ mit 
ihrer optischen Darstellung der Zusammenhänge zwischen 
m, n und o. Sie paßt sich automatisch der jeweiligen Größe 
- natürlich in den Grenzen des Bildschirmes - an. 


.n3 ! listing 2 matrjnul.gfa 

DEFINT "i-o" 
m=6 ! 

n=7 ! | | 

o=5 ! | | || || 

DIM a (m, n) , b (n, o) , c (m, o) 

für gfa-club 3/4-90 
k.h.schulz« 

! o 

! 1 

! *- n b (,) | 

! 1 1 

» | - 

. ! | 

t=TIMER 

manuell 

tman* (TIMER-t)/200 

anz man 

! n o 

! 1 II 

! m a (,) | m c (,) 

M II 

RESTORE 

j 

t=TIMER 

t 

drei fuenf 

i 

tmat= (TIMER-t)/200 

t 

MAT PRINT c() ,7,1 

I 

i 


PRINT " ";STRINGS(6*n+6*o+4,".") 

PRINT " ";titel$;m;",n;") * b (";n;",";o;")" 

PRINT " zeit manuell = ";tman; 

PRINT " | zeit mit mat 3.5 = ";tmat;" | > TASTE <"; 

~INP (2) 

EDIT 


PROCEDURE manuell 

FOR i=l TO m leinlesen a() 

FOR j=l TO n 
READ a (i,j) 

NEXT j 
NEXT i 


DATA 2,-1,3,1,2,4,3,-3,2,16,33,5,5,4,3,4,9,2, 

6,.1,5,13.7,5,0,-1.8,5,43,4,-4 
DATA 0,.12,6,5,1,-3,-5,4,3,-.1,-5.1,9,-1,7,5, 
62,5,0.9,3,42.7,7,8.5,0,-1,6,5 
DATA -3,11.4,19,5,-.5,3.7,12,1,8,5,-31,7,5, 

1,-4,-21,-5,9.3,-7,14,-4,76 
DATA 0,.12,6,5,1,-3,-5,4,3,-.1,-5.1,9,-1,7,5, 
62,5,0.9,3,42.7,7,8.5,0,-1,6,5 
DATA 2,-1,3,1,2,4,3,-3,2,16,33,5,5,4,3,4,9,2, 

6,.1,5,13.7,5,0,-1.8,5,43,4,-4 
DATA 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17 


Das Listing ’ 3’ ’ax_b.gfa’ zeigt, wie einfach 
die Auflösung eines typischen linearen Glei¬ 
chungssystems aus n Gleichungen und den n 
Unbekannten xl bis xn ist, und zwar mit den 
Befehlen MAT INV und MAT MUL. 

Wenn Sie im Listing ’matr_mul.gfa’ die Varia¬ 
blen m und n mit 3 und die Variable o mit 1 
belegen und vor dem MAT MUL ein MAT INV 
a()=a() einfügen, erhalten Sie im MAT PRINT 
Ausdnick die Lösung aus ax_b.gfa. 

VORSICHT FALLE! Wenn Sie mit Gleichun¬ 
gen experimentieren, kann es Ihnen passieren, 
daß Sie die Fehlermeldung ’DIVISION durch 
0" erhalten. Es gibt nicht für jede quadratische 
Matrix eine INVERSE. Hier vorerst nur der 
Hinweis, daß eine Matrix dann regulär ist, 
wenn die Determinante 0 ist. Für Experimente 
können Sie in Ihre Listings vor dem MAT INV- 
Befehl mit MAT DET d_et=a() und IF d_et=0 
verzweigen. 
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' li«ting 3 axjb.gf» für gfa-club 3/4-90 

k.h.achulx« 

DIM a(3,3),b(3,1),x(3,1) 

MAT READ a() 

MAT READ b() 

MAT INV a () =a () 

MAT MUL x () =a () *b () 

PRINT " a () " 

MAT PRINT a (),5,1 
PRINT " b() " 

MAT PRINT b() ,5,1 
PRINT " x()" 

MAT PRINT x () , 5,1 

DATA 2,-1,3,1,2,4,3,-3,2 

DATA 16,33,5 
» 


Für heute noch das Listing ’4’ ’simultan.gfa’. Das Bei¬ 
spiel ist einem alten HP-Handbuch entlehnt. Mit den Be¬ 
fehlen MAT INV und MAT MUL c()= aO*b() können in 
b() nicht nur einspaltige Matrizen verwendet werden. So 
ist es möglich, zwei verschiedene Gleichungssysteme mit 
jeweils n Gleichungen und n Unbekannten simultan zu 
lösen, wenn beide Systeme gleiche Koeffizienten haben. 


PRINT AT (3,19) ; "mit MAT INV a()=a() und MAT MUL 
x()=a()*b() so einfach ist's" 

RETURN 

DATA 273,35,1 
DATA 150,8,1 
DATA 124,19,1 
DATA 6193,7362.5 
DATA 3448,4085 
DATA 2968,3517.5 


Über Determinanten, Rang, Entwicklung der Inversen per 
Hand und weitere grundsätzliche Zusammenhänge - wenn 
Interesse besteht - in der nächsten Club-Ausgabe. Für 
heute viel Vergnügen beim Experimentieren mit GFA- 
B ASIC 3.5. Ach so - wenn Sie es noch nicht haben - GFA 
macht’s möglich. 

Karl-Heinz Schulze 


In diesem Beispiel haben wir von zwei Druckereien 
Angebote für Handbücher angefordert und jeweils die Ge¬ 
samtkosten zurückerhalten. 


Jetzt sollen die Kostenfaktoren der Druckereien A und B 
bestimmt werden. Es ist hier als bekannt angenommen, 
daß beide die Aufträge auf der Basis der Seitenanzahl, der 
Anzahl der enthaltenen Fotographien und einem Fixko¬ 
stenzuschlag kalkulieren. 

In die Matrix a() werden unsere Daten der Handbücher 
nach Zeilen eingelesen. 1.1 = Handbuch Nr.l Seiten, 1.2 
= Fotos, 1.3 = FKA(1 )usw.2.1 ....In der Matrix bQ stehen 
- nach Spalten - die Gesamtkosten der Druckerei A = 1, 
Spalte Handbuch 1,2,3 ; Druckerei B 2. Spalte usw.... Eine 
schon recht komplexe Anwendung. 

.n3 fliating 4 aimultan.gfa für gfa-club 3/4-90 

k.h.schulz« 

DIM a(3,3),b(3,2),x (3,2) 

MAT READ a () 

MAT READ b() 

PRINT " Seiten Foto Festkostenanteil" 

MAT PRINT a () , 5,0 
PRINT STRING$(31," .") 

PRINT " Gesamtkosten der Angebote von" 

PRINT " Druckerei A Druckerei B" 

MAT PRINT b() ,10,2 
MAT INV a () =a () 

MAT MUL x () =a () *b () 

PRINT STRINGS(31," .") 

PRINT " errechnetes Ergebnis:" 

PRINT " Druckerei A Druckerei B" 

MAT PRINT x (),10,2 

beiwerk 

~INP(2) 

EDIT 


PROCEDURE beiwerk 

PRINT STRINGS(31," .") 

PRINT AT(37,1);"Handbuch" 

PRINT AT(37,2);"1" 

PRINT AT(37,3) ;"2" 

PRINT AT(37,4) ;"3" 

PRINT AT(37,8);"1" 

PRINT AT(37,9);"2" 

PRINT AT(37,10);"3" 

PRINT AT(28,14);"Kosten je Seite" 

PRINT AT(28,15);"Kosten je Fotographie" 

PRINT AT(28,16);"Festkostenanteil" 

PRINT AT(3,18);"Das Programm berechnet die Kosten je 
; Seite/Foto und FK-Anteil" 


An alle 
GFA-BASIC- 
Programmierer! 

Upgrade von GFA-BASIC 3.0 
auf GFA-BASIC 3.5 

Seit Anfang *90 gibt es die neue GFA-BASIC-Version 
3.5 für den Atari und seit Anfang März ’90 auch die neue 
Version GFA-BASIC 3.5 für den Amiga aus unserem 
Hause. 

Upgradepreise: 

GFA-BASIC 3.5 EWS ST 70,- DM 

GFA-BASIC 3.5 Interpreter Amiga 30,- DM 
GFA-BASIC 3.5 Compiler Amiga 40,- DM 

Haben Sie nur den GFA-BASIC Interpreter 3.0 ST und 
möchten auf GFA-BASIC 3.5 EWS ST (Interpreter und 
Compüer) upgraden, beträgt der Preis: 







8 


GFA-CLUB-Nachrichten Nr. 2 - 90 


Die neuen PD’s für 
den ATARI 


Ab heute wollen wir wieder regel¬ 
mäßig die neuen PD-Programme vor¬ 
stellen. Da wir seit der Erstellung un¬ 
serer letzten Liste nunmehr fast 60 
neue Disketten mit tollen Pro¬ 
grammen in die PD-Liste aufgenom¬ 
men haben, ist es jedoch fast unmög¬ 
lich, hier alle vorzustellen. Seht 
diesen Artikel also ffeundlicherdings 
als ziemlich wahllose Auswahl an. 

Anti-Viren-Programm 

Da immer noch Programmierer ihr 
Talent zur Virenprogrammierung 
verschwenden, haben wir eine Dis¬ 
kette mit den besten Virenkillem aus 
dem PD-Bereich zusammengestellt. 
Das, wie ich denke, derzeit beste 
Virenabwehrprogramm ist wohl SA¬ 
GROT AN. Nachdem SAGROTAN - 
übrigens mit GFA-BASIC program¬ 
miert - nun in der neuen Version auch 
die Festplatten kontrolliert, ist auch 
hier eine grausige Lücke im System 
geschlossen. 

Nebenbei bemerkt, auf dieser Dis¬ 
kette befinden sich noch zwei Pro¬ 
gramme für Festplattenuser, die 
jedoch als Vorbeugung gelten soll¬ 
ten! Mit SMPROTECT oder PRO¬ 
TECT können Sie Partitionen mit 
einem Softwareschreibschutz ver¬ 
sehen. Wir haben diese Programme 
mit der SM 205, Megafile 30+60, HD 
80+ sowie der Happyfile ausgetestet 
und keine Fehler feststellen können. 
Unsere Antivirendisk hat die Num¬ 
mer 99. 

Backup-Programm 

Für Festplattenuser wie mich ist es 
immer ein lästiges Übel, Backups zu 
ziehen. Das dauert ewig, kostet Zeit, 
und auf Ordner nimmt ja doch keiner 
Rücksicht! Aus und vorbei, denn K.- 
H.Walon hat uns ein Backup-Pro¬ 
gramm für die Festplatte zukommen 
lassen, mit dem all diese Probleme 
der Vergangenheit angehören. 
HDBACK läuft in der hohen Auflö¬ 
sung und wird komplett und narren¬ 
sicher über die Funktionstasten ge¬ 
steuert. 

Spiel-Programm 

Nach so einem Backup braucht man 
natürlich auch etwas Entspannung! 
Hierfür haben wir ein Superbreakout 


mit gutem Leveieditor und einigen 
kniffligen Levels beigelegt. Aber 
Vorsicht! Wir haften nicht für durch¬ 
gespielte Nächte, denn dazu reizt 
dieses Spiel geradezu ungemein. 
HDBACK und SBREAK sind auf der 
Diskette 81. 

Compiler-Shells 

Wer viel mit GFA-BASIC 3.0 ar¬ 
beitet, wird vielleicht schon so man¬ 
ches Feature in der Benutzerober¬ 
fläche des Compilers vermißt haben. 
0.k., kein Problem! Denn hier sind 
zwei Compiler-Shells, die fast jeden 
Wunsch erfüllen. Für all jene, die sich 
die Benutzeroberfläche des "alten 1 ’ 
Compilers zurück wünschen, bietet 
sich nun MENUNEU an. Diese Shell 
bietet sehr viele Funktionen und 
Vereinfachungen im Stil des GFA- 
BASIC Compilers V 1.8. Wer hin¬ 
gegen an der Oberfläche des 
MENUX hängt, sollte sich unbedingt 
mit der GFASHELL befassen, denn 
auch hier gilt, daß viel Arbeit durch 
die Shell abgenommen wird. Beide 
Shells sind so gut, daß auch mir die 
Wahl schwer fällt und ich nur raten 
kann, probiert unsere Diskette 87 aus! 

Chemie-Programm 

Eine große Überraschung hat mir 
Claus-Peter Reisinger bereitet. In 
einem beigelegten Brief kündigte er 
sein "Erstlingswerk" für den GFA- 
Club an (wofür ich ihm sehr dankbar 
bin). Als ich, neugierig wie ich nun 
mal bin, dieses Chemie-Programm 
sofort startete, stellte ich fest, daß 
Freund Reisinger maßlos unter¬ 
trieben hat, denn diese Chemiean¬ 
wendung gehört zweifellos zu den 
besten Programmen dieser Sparte. 
Also, kleine und große Chemiker 
sollten sich die Diskette 92 beschaf¬ 
fen, es lohnt sich! 

Demoversion CALAMUS 

Da manche Programme sehr viel 
Geld kosten (manche waren das Geld 
auch noch nie wert), sind Demover¬ 
sionen eine gute Möglichkeit, die 
Tauglichkeit von Programmen zu 
testen und erst dann die Vollversion 
zu kaufen. Unsere Freunde aus Hol¬ 
land haben das auch gedacht und uns 
eine Demoversion von CALAMUS 


zugesandt. Diese Demoversion ist 
mit Ausnahme der Speichem-Option 
voll funktionstüchtig und ermöglicht 
die Erstellung komplexer Dokumente 
und Vorlagen. CALAMUS benötigt 
mindestens 1 Megabyte sowie den 
SM-124 und ist mit einer kleinen Ein¬ 
führung auf Diskette 101 erhältlich. 

Verschiedene Demos 

Da wir schon mal bei den Demos 
sind, neben SNOWMAN, einem 
Demo mit wundervoller Musik und 
animierter Grafik (Disk 90), haben 
wir noch CAD-Professional (Disk 
100), das Imagic-Demo (Disk 103), 
TEX (Disk 138) sowie das Soundma- 
chine-Demo mit vielen tollen Sounds 
(Disk 134) auf Lager. 

Drucker-Utilities 

Druckerfreaks werden an den Disket¬ 
ten 125 und 126 ihre Freude haben. 
Neben dem Ausdruck beliebiger 
Bilder in Poster- oder Bannerformat 
oder der vollen Nutzung von Farb- 
printem unter IST WORD PLUS und 
GFA-ASSEMBLER können jetzt 
auch eigene Zeichensätze in den 
Drucker geladen werden oder be¬ 
liebige Bildausschnitte vergrößert, 
verkleinert, zusammengesetzt und in 
bestechender Qualität ausgedruckt 
werden. 

Buchhaltungs-Programm 

Wer sich derzeit mit dem Gedanken 
an eine Komplettbuchhaltung trägt, 
sollte zuerst die Diskette 117 bestel¬ 
len. Denn warum viel Geld ausgeben, 
wenn CLERKOFFICE all dies gratis 
bietet! CLERKOFFICE ist eine 
Buchhaltung mit allem Drum und 
Dran, wobei die beigefügte Bedie¬ 
nungsanleitung sehr ausführlich und 
genau ist. CLERKOFFICE benötigt 1 
Megabyte und den monochromen 
Monitor. 

Raytracer-Set 

Grafikfreunde werden vom Ray¬ 
tracer-Set auf unserer PD 132 begei¬ 
stert sein. Wer kennt es nicht, das 
Raytracer-Set? Es ermöglicht kom¬ 
plexe Spiegelungen in pseudodrei¬ 
dimensionalen Räumen, wobei die 
dazu nötigen Berechnungen schon 
mal eine Nacht in Anspruch nehmen. 
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Vom Degas-Entwickler Tom Hudson 
gibt es als Dreingabe auch noch ein 
Assemblerlisting für schnelle Grafik¬ 
ausgaben über das VDI. Obendrein 
befinden sich auf dieser Diskette 
noch diverse Quellcodes für Grafik¬ 
features sowie das in GEM eingebun¬ 
dene Delta-Animationsprogramm. 

Grafiken und Bilder 

Damit in Zukunft Briefe und Do¬ 
kumente nicht mehr so trist und leer 
aussehen, haben wir auf den Disket¬ 
ten 102, 112, 131 und 133 Bilder im 
TYNY-Compressed-Format gesam¬ 
melt. Dekomprimiert - natürlich mit 
dem beigefügten Programm - ergibt 
das über 5,5 Megabytes Grafik total. 
Wer sich unsere neue PD-Liste be¬ 
stellt, wird einige dieser Supergra¬ 
fiken als Dekor bewundern können. 

So, nun ist mal wieder genug vorge¬ 
stellt. Falls Ihr Lust habt, könnt Ihr 
uns Eure Meinung zu dieser "Vorstel¬ 
lung” und unseren PD’s im allge¬ 
meinen schreiben. Besonders würde 
mich ja interessieren, welche Pro¬ 
gramme Ihr am liebsten in der PD- 
Kiste sehen würdet (bitte nicht das 
GFA-BASIC in die PD-Kiste wün¬ 
schen), denn nur so kann ich bei der 
Auswahl der Programme Eure Wün¬ 
sche erfüllen. 

Noch dankbarer wäre ich natürlich, 
wenn Ihr PD-Disketten für uns hättet. 
In diesem Fall vergeßt bitte nicht auf¬ 
zuschreiben, welche Wunsch-PD wir 
Euch als Ersatz zusenden dürfen! 
Apropos PD’s! Bei den Disketten, die 
Ihr mir dankenswerterweise für die 
PD-Box übersandt habt und, wie ich 
hoffe, auch weiterhin übersenden 
werdet, waren dieses Mal wieder 
einige Copyright-geschützte Pro¬ 
gramme dabei! Auf einer sogar das 
komplette GFA-ASSEMBLER-Ent- 
wicklungssystem sowie ein Textver¬ 
arbeitungssystem mit einem tollem 
und gut geschriebenen Liebesbrief 
(keine Chance Leute, den Liebesbrief 
haben wir auch gelöscht!) Da ich 
beim Austesten der Programme mal 
so ein geschütztes Programm über¬ 
sehen könnte, fände ich es ganz toll, 
wenn Ihr eben diese schon vor dem 
Versand an uns entfernen könntet! 

Das war’s dann also für heute, bis 
zum nächsten Mal, 

RalfKayser 


HILFERUFE 


Wer kann mir einen funktionierenden EMS-Treiber für einen 
NEAT286-Chipsatz (möglichst kostenlos) zukommen 
lassen? Die Firma, die mir das NEAT-Board verkauft hat, 
konnte mir leider nicht helfen. 

Der mit dem NEAT-Board gelieferte Treiber NEAT Ex- 
panded Memory Driver, Version 4.1.1 von Chips & Techno¬ 
logies mit Datum 8.8.88/4:31 pm funktioniert leider nur mit 
einem einzigen Programm, das EMS benutzt. Die Ursache ist 
darin zu finden, daß nach Freigabe der von einem Programm 
belegten EMS-Seiten die vorher wiederhergestellte Seiten¬ 
belegung des Vorgänger-Programms nicht mehr gegeben ist. 
Zumindest sind dann keine EMS-Seiten mehr aktiv einge¬ 
blendet. 

Ein EMS-Emulator (TC!POWER) ist ein zwar funktionieren¬ 
der, aber leider (na logo) nicht besonders schneller Ersatz. Es 
ist War, daß in einem emulierten EMS z.B. ein CACHE-Pro¬ 
gramm wirklich SEHR langsam ist, weil der EMS-Emulator 
im Gegensatz zum EMS-Treiber einem Blockmove im Pro- 
tected Mode machen muß, während ein echter EMS-Treiber 
einfach nur ein Register-Port umzuschalten braucht. 

Paul Schubert, Rottweiler Str. 8,6000 Frankfurt/Main 1, 
Tel.: 069/231145. 


Wer kann mir bei folgendem Problem helfen? 

Beim Hochfahren der Festplatte möchte ich automatisch 
GFA-BASIC installieren, ein nicht kompiliertes GFA-Pro- 
gramm laden und dann auch noch automatisch starten lassen. 

Bisher habe ich das mit GFA-Starter zwar tun können, aber 
die neue TOS-Version 1.4 macht da nicht mit Man kann zwar 
GFA-BASIC alleine laden, aber ein GFA-Programm nicht 
automatisch starten. 

PS: Ich möchte die zu ladenden Programme nicht kompi¬ 
lieren. 

R. Kern, Postfach 955, 7530 Pforzheim, Tel.: 07231/81213. 


Auch ich habe eine Frage an die Programmierprofis: 

Wie kann man bei der Ausgabe eines langen Strings (32 KB) 
mittels LPRINT ermitteln, ob der Drucker mitten in der 
Übertragung OFFLINE geschaltet wurde? In diesem Fall 
wartet der Computer noch 30 Sekunden und ignoriert dann 
alle noch kommenden LPRINT-Befehle. Auch ein nach dem 
LPRINT folgendes OUT?(0) stellt keine Abhilfe dar. In die¬ 
sem Fall läßt sich zwar ermitteln, ob der Drucker OFFLINE 
(bzw. BUSY) ist, aber nicht, wie viele Zeichen eventuell 
noch auszugeben wären. Außerdem wäre es ziemlich um¬ 
ständlich, hinter jeden LPRINT-Befehl ein OUT?(0) zu set¬ 
zen. 

Ich hoffe, mir kann jemand helfen. 

Dipl.-Ing. Jürgen Hofmann, Zur Finkenkuhle 26, 

3320 Salzgitter 51 





10 


GFA-CLUB-Nachrichten Nr. 1 - 90 


Updates/Upgrades 


Name 

Version/Datum 

ST-Produkte 



GFA-BASIC 



Entwicklungssystem 2.0 (Interpreter und Compiler) 

2.02 

27.12.87 

Entwicklungssystem 3.5 (Interpreter und Compiler) 

3.5 

14.02.90 

Interpreter 3.0 

3.07 

15.06.89 

Compiler 3.0 

3.03 

02.10.89 

GFA-ASSEMBLER 

1.5 

20.03.90 

GFA-DRAFT (an Mega ST angepaßt) 

2.1 

30.09.87 

GFA-DRAFT-plus ST 

3.01 

31.03.89 

GFA-DRAFT-plus ST 

3.1 

01.03.90 

GFA-RAYTRACE 

1.5 

02.09.89 

ChemGraf 

1.4 

03.11.89 

GFA-ARTIST 

1.0 

19.11.87 

STARTER 

2.0 

01.07.88 

Floppyspeeder 

1.0 

01.06.88 

Farbkonverter 

12 

25.07.88 

Monochromkonverter 

12 

25.07.88 

Multi-Accessory 

1.0 

01.06.88 

PC-Produkte 



GFA-DRAFT-plus 

3.02 

17.07.89 

GFA-FAKT 2.0 

2.0 

15.11.88 

GFA-FAKT-plus 

1.6 

02.10.89 

GFA-DESK 

1.6 

05.11.88 

GFA-DESK-plus 

13 

17.07.89 

GFA-CAD 

4.5 

27.11.89 

AMIGA-Produkte 



GFA-BASIC Interpreter 3.0 

3.05 

04.09.89 

GFA-BASIC Compiler 3.0 

3.01 

01.12.89 

GFA-BASIC Interpreter 3.5 

3.5 

0102..90 

GFA-BASIC Compiler 3.5 

3.5 

01.02.90 

GFA-ASSEMBLER 

1.5 

01.03.90 


Service 


Sie müssen registrierter Kunde für das 
"upzudatende" Produkt sein. Das Update 
erfolgt nach: 


• Zusendung eines frankierten, an 
Sie selbst adressierten, wattierten 
DIN C5 Rückumschlages 

• Zusendung von DM 10.- (nur 
Geldschein) 

Um sicher zu gehen, daß wir das richtige 
Produkt auf dem entsprechenden Dis¬ 
kettenformat updaten, nennen Sie uns 
bitte: 


• den Produktnamen 

• die Seriennummer / Version 

• das verwendete System 

• das gewünschte Diskettenformat 
(5 1/4" oder 3 1/2") 


Nur wenn die oben genannten Bedingun¬ 
gen erfüllt sind, erhalten Sie von uns eine 
Update-Diskette mit der gewünschten 
Programmversion. Das Nutzungsrecht 
für diese Programmversion gilt nur in 
Verbindung mit der Originaldiskette. 


Achten Sie bitte darauf, daß Sie nicht 
Ihre Originaldiskette einsenden! 


Geänderte Supportzeiten 


GFA-BASIC Atari ST (Frank Ostrowski) 
GFA-BASIC Amiga (Dirk Van Assche) 

GFA-DRAFT-plus PC/ST und GFA-CAD 

GFA-ASSEMBLER, GFA-BASIC ST, 
GFA-DESK-plus, GFA-FAKT 2.0 

GFA-FAKT-plus 


Dienstag: 

15.00 bis 17.00 Uhr 

Dienstag: 

15.00 bis 17.00 Uhr 

Montag: 

15.00 bis 17.00 Uhr 

Donnerstag: 

15.00 bis 17.00 Uhr 

Mo., Mi., Fr.: 

9.00 bis 13.00 Uhr 

Di. und Do.: 

13.30 bis 17.00 Uhr 

Montag: 

10.00 bis 11.30 Uhr 
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Programm Preis 

Upgrade 

Preis 

Bemerkung 

GFA-BASIC Interpreter ST V 2.0 169,- DM 

Entwicklungssystem 3.0 

70,- DM 


1 + 6 

GFA-BASIC Interpreter ST V 2.0 99,- DM 

Entwicklungssystem 3.0 

140,- DM 


1+6 

GFA-BASIC Interpreter V 1.0 

Entwicklungssystem 3.0 

90,- DM 


1 

GFA-Einsteiger-Set 

Entwicklungssystem 3.0 

140,- DM 


4 

Entwicklungssystem ST V 2.0 

Entwicklungssystem 3.0 

160,- DM 


1 

Entwicklungssystem ST V 2.0 

Entwicklungssystem 3.5 

230,- DM 


1 

Entwicklungssystem ST V 3.0 

Entwicklungssystem 3.5 

70,- DM 


2 

GFA-BASIC Interpreter ST V 2.0 169,- DM 

Entwicklungssystem 3.5 

140,- DM 


1+6 

GFA-BASIC Interpreter ST V 2.0 99,- DM 

Entwicklungssystem 3.5 

210,- DM 


1+6 

GFA-BASIC Interpreter V 1.0 

Entwicklungssystem 3.5 

160,- DM 


1 

GFA-Einsteiger-Set 

Entwicklungssystem 3.5 

210,- DM 


4 

GFA-DRAFT ST 298,- DM 

GFA-DRAFT plus V3.0 





(Modula-2-Version) 

120,- DM 


3 

GFA-DRAFT ST 198,- DM 

GFA-DRAFT-plus ST V2.0 

220,- DM 


3 

GFA-DRAFT-plus ST V 1.5 

GFA-DRAFT-plus ST V3.0 

50,- DM 


3 

GFA-DRAFT -plus ST V 2.0 

GFA-DRAFT plus ST V3.0 

10,- DM 



GFA-DRAFT-plus PC V 3.01 279,- DM 

GFA-DRAFT-plus PC 





erweiterte Version 

149,- DM 


3 

GFA-DRAFT-plus PC V 3.01 279,- DM 

GFA-CAD V 4.5 

499,- DM 


1 

GFA-DRAFT-plus PC Erw. Ver. 398,- 

GFA-CAD V 4.5 

400,- DM 


1 

GFA-FAKT V l.X 

GFA-FAKT V 2.0 

25,- DM 


3 

GFA-FAKT V l.X 

GFA-FAKT-plus 

425,- DM 


3 

GFA-FAKT V 2.0 

GFA-FAKT-plus 

400,- DM 


3 

GFA-DESK V 1.5 

GFA-DESK plus V 1.2 

70,- DM 


2 

GEM (GFA-DRAFT-plus PC) V 2.2 

GEM 3.1 

149,- DM 


5 

GFA-BASIC Interpreter Amiga V 3.0 

Interpreter 3.5 

30,- DM 


2 

GFA-BASIC Compiler Amiga V 3.0 

Compiler 3.5 

40,- DM 


2 

Bemerkung: (Folgendes bitte einschicken) 





1: komplettes Paket (Handbuch, Ringordner u. Orig.-Diskette) 

4: nichts 



2: Originaldiskette 


5: nur Masterdiskette 


3: Handbuchseiten + Originaldiskette 


6: Kopie des Kaufbelegs 


Messetermine bis Mai ’90 


21.-28.03.1990 Hannover 

CeBIT 





Welt-Centrum der Büro-, Informations¬ 




und Telekommunikationstechnik 



25.-28.04.1990 München 

BÜRO + Computer 





Fachausstellung Bürotechnik, Computer, 




Büromöbel, Orgamittel, Zeichentechnik 



25.-29.04.1990 Dortmund 

Hobby - tronic 





Ausstellung für Computer, Software und Zubehör 


02.-09.05.1990 Hannover 

Hannover Messe Industrie 
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Pointer in 
GFA-BASIC 
3.0 

Das folgende Listing zeigt, wie man 
im GFA-BASIC auch eine PASCAL- 
ähnliche Pointerverwaltung reali¬ 
sieren kann. So kann man nun endlich 
auch Bäume, verkettete Listen und 
dergleichen einfach im GFA-BASIC 
programmieren. Ja, sogar "records" 
sind möglich, jedoch (leider) nur 
Pointer auf "records". 

Am Anfang war die Prozedur "POIN- 
TERINIT": Gleich zu Beginn steht 
die gewünschte "record"-Definition. 
Die Zahlen in den Datazeilen spie¬ 
geln den gewünschten Datentyp 
wider (1 = Byte usw.). Dabei stehen 
negative Werte für String variablen 
(z.B. reserviert -4 eine maximal vier 
Byte lange String variable und 
nicht(!) eine longint Zahl). Die 
Stringvariablen sind nicht dynamisch 
(wie in BASIC), sondern man muß 
die maximale Länge angeben. 

"DATA -80,4,1,0" reserviert z.B. 
eine max. 80 Zeichen Stringvariable, 
eine Longinteger-, und eine Bytevari¬ 
able. 

Um die einzelnen Komponenten ein¬ 
fach ansprechen zu können, ist es 
empfehlenswert, anstatt der nicht 
sehr aussagekräftigen Komponenten- 
nummem Variablen (Pseudokonstan¬ 
ten) mit diesen Werten zu initiali¬ 
sieren (siehe Listing). Der Rest der 
Prozedur bereitet die Daten für die 
anderen Pointer-Prozeduren auf. 

Die Prozedur NEUER_PTR reser¬ 
viert Speicher für einen "record" und 


gibt einen Pointer auf diese Struktur 
zurück. Das Gegenteil bewirkt DIS¬ 
POSE: Sie gibt den Speicherbereich 
auf eine Struktur frei. 

PTR_WRITE (bzw. PTR_WRITE_ 
STR) setzen die Komponente ARTI 
der Struktur mit Adresse (=Pointer) 
ADR% auf den Wert in WERT% 
(bzw. auf STRNGS). Hierbei ist zu 
beachten, daß bei numerischen 
Werten die Variable mit Vrvariable zu 
übergeben ist, String variablen dage¬ 
gen "normal". Die Funktionen 


PTR_READ und PTR_READ$ lie¬ 
fern den entsprechenden Wert bzw. 
String. 

Zur Verdeutlichung der Arbeitsweise 
dienen BINAERJBAUM (erzeugt 
einen sortierten Binärbaum) und 
SYMDRUCK (gibt einen Binärbaum 
in symmetrischer Reihenfolge aus). 

Gernot Pfingstl 


' Pointer in GFA-Basic 

' EAL-Soft - August 1989 

ON BREAK GOSUB break 
ON ERROR GOSUB error 
OPTION BASE 1 
DEFBIT M a-z M 

pointerinit 

binaer_baum ! Binärbaum (Integer-Werte) erzeugen 

symdruck(w%) ! und in symmetrischer Reihenfolge ausgeben. 

pointerexit 


PROCEDURE binaer_baum 

' ! Erzeugt sortierten Binärbaum (Integer-Werte) 

LOCAL werts,p%,q% ! (0 beendet die Eingabe) 

neuer_ptr(w%) 

INPUT wert & 

ptr_write(w%,x|,V:werts) 
ptr_write(w%,links|,V:nil%) 
ptr_write(w%,rechts|,V:nil%) 

REPEAT 
INPUT wert& 

IF wertSOO 

neuer_ptr(q%) 

ptr_write(q%,x|, V:werts) 

ptr_write(q%,links|,V:nil%) 

pt!r_write (q%, rechts |,V:nil%) 

p%=w% 

found=FALSE 

REPEAT 

IF werts<=@ptr_read(p%,x| ) s 
IF @ptr_read(p%,links|)=nil% 
ptr_write(p%,links|, V:q%) 
found=TRUE 
ELSE 

p%=@ptr_read(p%,links|) 

ENDIF 

ELSE 

IF @ptr_read(p%,rechts|)=nil% 
ptr_write(p%,rechts|,V:q%) 
found=TRUE 
ELSE 

p%=@ptr_read(p%,rechts|) 

ENDIF 

ENDIF 

UNTIL found 
ENDIF 

UNTIL wertS=0 
RETURN 

PROCEDURE symdruck(p%) 

IF p%onil% ! Gibt Binärbaum in symmetrischer 

symdruck(@ptr_read(p%,links|)) ! Reihenfolge aus 

PRINT @ptr_read(p%,x|) 
symdruck(@ptr_read(p%,rechts|)) 

ENDIF 

RETURN 


FUNCTION ptr_read$(adr%, art|) 

RETURN CHAR{ADD(adr%,pointerdescriptor|(art|,2))} 
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ENDFUNC 

FUNCTION ptr_read(adr%, art|) 

LOCAL dummyl 

SELECT pointerdescriptor|(art|,l) 

CASE 1 

RETURN BYTE{ADD(adr%,pointerdescriptor| (art|,2))} 

CASE 2 

RETURN INT{ADD(adr%,pointerdescriptor|(art|,2))} 

CASE 4 

RETURN LONG{ADD(adr%,pointerdescriptor| (art| f 2))) 

CASE 8 

RETURN FLOAT{ADD(adr%,pointerdescriptor|(art|,2))} 

DEFAULT 

ALERT 3, H Fehler | in Procedure: | PTR_READ | ",1," OK ",dummyl 

ENDSELECT 

ENDFUNC 

f 

PROCEDURE ptr_write_str(adr%,art|,strng$) 

CHAR{ADD(adr%,pointerdescriptor| (art1,2))}=LEFT$(strng$,pointerdescriptor| (art1,1))+CHR$ (0) 
RETURN 

PROCEDURE ptr_write(adr%,art|,wert%) 

SELECT pointerdescriptor|(art|,l) 

CASE 1 

BYTE(ADD(adr%,pointerdescriptor|(art|,2))}=BYTE{wert%} 

CASE 2 

INT{ADD(adr%,pointerdescriptor| (art1,2))}=INT{wert%} 

CASE 4 

LONG{ADD(adr%,pointerdescriptor| (art1,2))}=LONG{wert%) 

CASE 8 

FLOAT{ADD(adr%,pointerdescriptor|(art|,2))}=FLOAT{wert%} 

DEFAULT 

ALERT 3," Fehler | in Procedure: | PTR_WRITE | ",1, M OK ",dummyl 

ENDSELECT 

RETURN 


PROCEDURE neuer_ptr(VAR pointeradr%) 
LOCAL i% 


ent seheidung=NOT entscheidung ! sehr einfacher Algorithmus, um 

IF entscheidung ! Suchzeit (freier Speicher) 

FOR i%=l TO maxpointer% ! herabzusetzen 

EXIT IF pointerverwaltung(i%)=FALSE ! (1/2 Zeit als wenn nur eine 

NEXT i% ! FOR-NEXT-Schleife) 

ELSE ! ACHTUNG: kein Test, ob noch 

FOR i%=maxpointer% DOWNTO 1 ! Speicher frei !!! 

EXIT IF pointerverwaltung(i%)=FALSE ! (Datenverlust !!!) 

NEXT i% 

ENDIF 

pointerverwaltung (i%)=TRUE ! Speicherplatz gefunden und gleich 

pointeradr%=ADD(pointer_adresse%,MUL(SUB(i%,1),pointer_laenge&)) ! reservieren 

RETURN 

PROCEDURE dispose(pointeradr%) 

pointerverwaltung(DIV(ADD(SUB(pointeradr%,pointer_adresse%),pointer_laenge&),pointer_laenge&))=FALSE 
RETURN 

PROCEDURE pointerinit 


LOCAL counter&,komponente& 
LOCAL ptr_feld_groesse% 


record: 

DATA 2,4,4,0 


x|=l 

links|=2 
rechts|=3 


Dabei 
Zahl 
1 
2 
4 
8 

-1 
0 


'record' Vereinbarung 


haben die Zahlen folgende Bedeutung: 

tatsächliche Länge 


Byte 

Integer 

Longint 

Float 

String mit 


Länge 1 


(2 Bytes) 
(2 Bytes) 
(4 Bytes) 
(8 Bytes) 
(1+1 bzw. 


Ende der Vereinbarung 


1+2 Bytes) 


! 'Konstanten' zum einfachen Ansprechen der Komponenten 
! 1. Komponente 
12 . — "" — 

! 3. — "" — 


maxpointer%=10000 
maxkomponenten|=20 
nil%=0 


! Maximale Pointeranzahl 
! Maximale Komponentenanzahl 
! Pointer auf "NICHTS" 


DIM pointerverwaltung(maxpointer%) 


! Flags für vergebene Pointer 
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ARRAYFILL pointerverwaltung(),FALSE 
DIM pointerdescriptor|(maxkomponenten|,2) 

ARRAYFILL pointerdescriptor|(),0 


! Noch alle Poiner unbesetzt 
! (.,1) Länge der einzelnen Komponenten 
! (.,2) Komponentenoffset zum Pointer 

! löschen 


RESTORE. record 

CLR counter&,pointer_laenge& 

REPEAT 

INC counters 
READ komponentes 

pointerdescriptor|(counters,1)=ABS(komponentes) 
pointerdescriptor|(counters,2)=pointer_laenges 
IF komponentes 

komponentes=ADD(ABS(komponentes), 1) 

ENDIF 

IF ODD(komponentes) 

INC komponentes 
ENDIF 

ADD pointer_laenges,komponentes 
UNTIL komponentes=0 


! Den Pointerdescriptor 
! initialisieren 


! String: 

! Platz für 0 Byte 

! keine ungeraden 
! Adressen (3 Bomben) 


ptr_feld_groesse%=MUL(pointer_laenges,maxpointer%) ! Länge eines^Verbundes 
RESERVE -ptr_feld_groesse% ! BASIC Speicher frei geben 

pointer_adresse%=MALLOC(ptr_feld_groesse%) ! für Pointer reservieren 

IF pointer_adresse%=0 

ALERT 3," Zu wenig Speicher | in Procedure: | POINTERINIT | ",1," EXIT ",dummy| 
END 
ENDIF 


RETURN 

PROCEDURE pointerexit 

' ! reservierten Speicher wieder freigeben ... 

IF MFREE(pointer_adresse%)0 

ALERT 3," Fehler bei Speicherfreigabe | in Procedure: | POINTEREXIT | ",1," EXIT ",dummy| 

END 

ENDIF 

RESERVE ! ... und dem BASIC wieder einverleiben 

ERASE pointerverwaltung(),pointerdescriptor|() 

' ! wird nicht mehr benötigt 

RETURN 


PROCEDURE break 

@pointerexit ! Speicher zurückgeben 

EDIT 


RETURN 

PROCEDURE error 
LOCAL error% 


error%=ERR 

@pointerexit ! Speicher zurückgeben 

ERROR error% 

RETURN 


Verhindern von Flimmern 

' Verhindert das Flimmern des Mauspfeils im oberen Bereich des Bildschirms! 

' y& gibt die Y-Koordinate an (meist MOUSEYY) 

PROCEDURE vs (y&) 

IF y%<150 
VSYNC 
t%=TIMER+l 
REPEAT 

UNTIL TIMER>t% 

ELSE 

VSYNC 

ENDIF 

RETURN 

Roland Beck 
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Eine unwahrscheinliche 
Fundgrube... 


Unter Fundgruben versteht man nor¬ 
malerweise Einrichtungen, in denen 
unentdeckte Schätze schlummern. 
Daß man den Begriff durchaus auch 
wörtlich verstehen kann, beweist eine 
ungewöhnliche Datenbank: THE- 
MADAT, die assoziative Datenbank 
für den ST. Ha, assoziativ, das zergeht 
regelrecht auf der Zunge. Was ist da¬ 
runter zu verstehen? 

Unsere "grauen Zellen" verwalten 
Erinnerungen und Erfahrungen meist 
in Verbindung mit bestimmten Vor¬ 
stellungen bzw. Eselsbrücken. 
Mehrere Begriffe lassen so auf ein 
Ereignis schließen. Die Verwaltung 
der Daten in THEMADAT arbeitet 
ähnlich. Eine Datenbank wird mit 
Hilfe von mehreren selbstdefinierten 
Suchbegriffen festgelegt. Jedem 
Datensatz werden dann die passen¬ 
den assoziativen Suchbegriffe zu¬ 
geordnet. So läßt sich jeder Datensatz 
später durch Assoziationen wieder¬ 
finden. Ein logisches Prinzip. 

Dafür, daß in dieser "Fundgrube" wir¬ 
klich nichts verloren geht, sorgen 
maximal 31 Hauptthemen (Haupt¬ 
suchbegriffe) mit jeweils 31 Unter¬ 
themen. Wem diese 961 Themen mit 
insgesamt 2 A 961 (!) Kombinations¬ 
möglichkeiten nicht genügen, der 
muß irgendwo an der Grenze zwi¬ 
schen Genie und Wahnsinn entlang¬ 
balancieren... 

Übrigens, wer sich unter 2 A 961 nichts 
vorstellen kann, für den habe ich mal 
nachgerechnet. Das Ergebnis ist eine 
Zahl mit 289 Stellen. Skeptische kön¬ 
nen ja selbst nachrechnen... 

Wer ernsthaft mit diesem Programm 
arbeiten möchte, dem empfiehlt sich 
das Studium des Handbuchs in Ring¬ 
buchform. Dort erwartet ihn bereits 
auf der ersten Seite eine Überra¬ 
schung: Der "kleine Dickmacher"! 

Äh, nein, so war es nicht gemeint; 
auch Frauen können das Handbuch 
gefahrlos benutzen, ehrlich ! Es ist..., 
nein, ich verrat’s doch nicht. 

Jedenfalls beinhaltet das Handbuch 
sehr viele Informationen zum Um¬ 
gang mit THEMADAT, wobei mir 
mancherlei auf Anhieb nicht ganz 
klar geworden ist. Kommt Zeit, 
kommt Weisheit... (vielleicht...)! 


Der Menüaufbau des Programms ist 
in vier Bereiche gegliedert: 

• Unter THEMEN werden die Da¬ 
teimasken erstellt, ergänzt, bzw. 
fertige Masken geladen. 

• Unter DATENBANK gibt es die 
üblichen Optionen, wie das 
Eingeben, Suchen, Sortieren... 

• Unter UTILITIES findet man 
eine Themenübersicht, Drucker¬ 
treiber, Rechenfunktionen und 
Schnittstellen zum Texteditor 
(TEDI), zum Grafikprogramm 
(STAD) und zum Maskenpro¬ 
gramm für die Eingabetexte. 

• Unter DB kann man sich be¬ 
liebige Texte anzeigen lassen, 
und es besteht die Möglichkeit, 
Daten zu exportieren und zu im¬ 
portieren. 

Trotz der Vielzahl der Features und 
Einstellungsmöglichkeiten läßt sich 
eine neue Datenbank relativ einfach 
erstellen. Zuerst werden der Datei¬ 
pfad und die Datenbanknummer 
(nicht Name !) festgelegt. Jetzt stellt 
man die voraussichtliche Maximal¬ 
größe (350 KB/ 700 KB / 1050 KB/ 
1400 KB) ein und formatiert den 
Datenträger vor. Das dauert zwar 
einige Minuten, hat aber den Vorteil, 
daß später bei Eingabe etc. keine 
Wartezeiten auftreten. Außerdem 
gibt’s nie ein gefürchtetes " Disk 
voll..." Anschließend erstellt man 
eine Textmaske (Standardvorgabe ist 
vorhanden). Tja, und jetzt kommt der 
eigentliche Clou, nämlich die 
Themenmaske mit den vielen Mög¬ 
lichkeiten. Mit ein bißchen Überle¬ 
gung und einigen Beispielen aus dem 
Handbuch geht auch das locker vom 
Hocker. 

Das wär’s dann, oder doch nicht? Nun 
kommt die eigentliche Arbeit des 
Eingebens, die mir persönlich immer 
am meisten zu schaffen macht. Viele, 
vielleicht recht nützliche Dateien 
werden nur deshalb nicht erstellt, 
weil viel Arbeit dahinter steckt 
Eingeben kann man natürlich in Text¬ 
form, aber auch bis zu neun Bilder pro 
Datensatz sind zugelassen. Bei mir 
gab’s trotz Handbuch einige kleinere 
Problemchen, vor allem bei der Ein¬ 
gabe. Dateizugriffe auf schreibge¬ 
schützte Disketten und meine Unwis¬ 
senheit beim Umgang mit z.B. <Text 


zeigen> belohnen mich hin und 
wieder mit Bomben... 


Sind diese Hürden alle genommen, 
dann kommt Freude auf! Man besitzt 
wirklich eine Datenbank, in der man 
auch das findet, was man sucht; und 
vor allem recht schnell. Durch die 
vielfältige Art der Möglichkeiten ent¬ 
geht einem auch kein kleiner Hin¬ 
weis, der zu den Suchthemen paßt. 
THEMADAT leistet wirklich gute 
Arbeit 


Fazit: THEMADAT bietet viel mehr 
Möglichkeiten, als sich in der Kürze 
beschreiben lassen. Interessant ist 
dieses Programm bestimmt für sehr 
viele Anwender sowohl im Hobby-, 
als auch im professionellen Bereich. 
Alle, die mit "Sammlungen" zu tun 
haben, also z.B. Fotografen, Filmer, 
Yermittler, Reisebüros, Anwälte, 
Ärzte, Forscher, Büchereien und 
Sammler jeglicher Gegenstände, 
können dieses Programm brauchen. 
THEMADAT bietet nicht nur viel, es 
ist auch sehr schnell und durch seine 
Benutzeroberfläche gut zu bedienen. 
Das Handbuch hilft in fast allen Fäl¬ 
len ohne Schnick-Schnack, und 
außerdem gibt es Unterstützung 
durch den Vertrieb. Vielleicht noch 
ein paar Worte zu den Schnittstellen. 
Ein Editor (TEDp wird mitgeliefert. 
Seine Leistungsfähigkeit bleibt leider 
zum Teil weit hinter anderen Editoren 
auch aus dem PD-Bereich zurück, 
jedoch kann ein anderer Editor ver¬ 
wendet werden. STAD wird selbst¬ 
verständlich nicht mitgeliefert, aber 
auch DEGAS- und SCREEN-Bild- 
formate werden erkannt. THEMA¬ 
DAT (Professional) kostet incl. 
TEDI.PRG DM 165.-, ein angemes¬ 
sener Preis, wenn man seine Lei¬ 
stungsfähigkeiten berücksichtigt. 
Daß THEMADAT konkurrenzlos ist, 
wie die Werbung verspricht, wage ich 
aus eigener Erfahrung zu bezwei¬ 
feln... 


Walter Hermann 


Progr.-Name: 

Preis: 

Kopierschutz: 

Auflösungen: 

Handbuch: 

Copyright: 

Anschrift: 


Themadat Professional 

165,- DM 

nein 

monochrome 
deutsch, Ringbuch 
Try Soft 

Ingeborg von Try 11er 
S teinberg str. 6 
3200 Hildesheim 
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Flohmarkt-Anzeigen 


Suche 


S uche P6-Treiber für Degas-Elite, W. 
Zielinski, Komgasse 25, 6915 Dos¬ 
senheim. 

Suche Platine ST, Mega Paint I/II, 
GFA-Raytrace, Calamus nur Origi¬ 
nale mit Handbüchern. Roger Ash- 
auer, 4000 Düsseldorf 30, Roßstr. 16, 
Tel.: 0211/483378. PS: Suche auch 
Platinenlayout-Software mit Aus¬ 
gabe für Atari Laser und/oder Image. 
Files! 

Wer hat Erfahrung a) mit dem PAMs- 
Netzwerk für den Atari ST, b) mit der 
Schrifterkennung AUGUR und 
übernimmt Scan-Aufträge, c) mit 
dem Börsenprogramm ’James’ und 
ist am Datenaustausch interessiert? 
Suche außerdem Original-BTX- 
MANAGER, Sci-Graph, Aladin mit 
SLM 804-Treiber, SLM-804- 
FONTS fürLaserbrain, Diablo-Emu- 
lator, Signum2. Kontaktaufnahme ab 
19 Uhr unter Tel.: 0911/497642. 

Suche defekte Flachbettplotter, auch 
Schrott. Dieter Grade, Papenknüll 12, 
2224 Brickein, Tel.: 04825/1466. 

Fortgeschrittene Hobbyprogram¬ 
mierer gesucht, die ihre selbster¬ 
stellten Programme - Spiel oder An¬ 
wendung - (Atari ST / Monochrome- 
Monitor) durch uns vermarkten 
möchten. Senden Sie uns Ihre Vor¬ 
schläge, Vorstellungen, Demos oder 
Programme. COMPUTER-SER¬ 
VICE KÖHLER, Don-Carlos-Str. 
33 b, 7000 Stuttgart 80. 


Biete 


Biete original Xenon II für Atari ST, 
VB. 35,- DM, Manfred Stalschus, 
Gustav-Freytag-Str. 7,5000 Köln 30, 
Tel.: 0221/552764. 

PC-HARDDISK AM ST: Adapter 
für Omti-Controler mit Software für 
Autoboot von HD für nur 150,- DM. 
Tel.: (9.00h bis 16.00h) 089 / 

76992158. 

PRO Pascal mit Handbüchern, ein 
Jahr alt, für ATARI ST zum Preis 
von 150,-DM. Anruf bei GunnarBar- 
gatzky samstags von 15.00h-17.00h 
unter 0208/751252. 

Verkaufe wegen Systemerweiterung 
anschlußfertige, pseudobootfähige 
Festplatte (30MB, 28ms, Autopark, 
MFM) für Atari St incl. GEM-ge- 
steuerter Treiber Software und 1/2 
Jahr Garantie gegen Nachnahme für 
nur 799,- DM!!! Die Maße des hell¬ 
grau lackierten Stahlblechgehäuses 
betragen: 32x32x9,5 cm. Tel.: 
06103/29393 (ab 20.00 Uhr). 

Public Domain Einzelkopierservice, 
Programme einzeln nach Ihren Wün¬ 
schen auswählbar, ca. 1100 Pro¬ 
gramme, nur 0,80 DM pro KByte, 
Katalog anfordem bei Holger Wilke, 
Bergisch-Bom 73, 5630 Remscheid 
11 . 

Verkaufe GFA-Movie ungebraucht 
für 80,- DM. Moll, Duisburg, Tel.: 
0203/493414. 

SW-HAUSHALT—Private Haush¬ 
altsbuchführung für ATARI ST nur 
59,- DM. Info bei: ST Profi-Partner, 
Mönkhofer Weg 126, 2400 Lübeck, 
Tel.: 0451/505367. 


PC 10-S von Commodoremit2x5 1/4 
Zoll-Laufw., 1 Festplatte 10MB, 1 
Filecard 20MB, 2 seriell, 2 parallel, 1 
Gamesport, EGA-Karte, Monitor 
1084, 2 Jahre, VB: 1200,- DM, Tel.: 
06187/5279. 

Biete an: ST MAGAZIN/ 68000er 
1/87-12/89, je Jahrgang 25,- DM; 
Versch. Ausgaben von DATAWELT 
und HAPPY COMPUTER für DM 
1,-/St.; GFA-BASIC 3.0 EWS-NEU, 
Orig. Verp. (NP 198.-) für 160,- DM; 
Ist LEKTOR 45,- DM; DATAMAT 
ST 30,- DM; GAUNTLET ST 20,- 
DM. A. Hinken, Leher Heerstr. 100, 
2800 Bremen, Tel.: 0421/237258. 

Verkaufe superbillig PC-Spiele, oft 
nur zum halben Preis. Wie z.B. Zak 
Mac Kracken (dt.), Grand Monster 
Slam, Football Manager 2, Oil Im¬ 
perium, Jeanne D’Arc, F16 Combat 
Pilot, oder ein super Malprogramm, 
GFA Fakt sowie DATAMAT PC, 
Natürlich alles original. Oliver Rö- 
derer, Tel.: 06508/487. 

GFA-Assembler V.1.3, Original mit 
Handbuch, unbenutzt, original ver¬ 
packt, VB 100,- DM; Atari SM 124, 
VB 290 DM; Atari 520 STM mit 720 
KB-Floppy, VB 650,- DM; Epson LX 
800 mit neuem Farbband 350 DM; 
Blaupunkt TV, 37cm Bildschirm, 
Euro-AV-Buchse für Computer 
geeignet, 500,- DM, Tel.: 02568/631 
(Jens). 

Verkaufe HF-Modulator MOD3A 
/AUTO von STACHOWIAK für ST 
(auch Mega ST) incl. Netzteil für 65,- 
DM und 300 Baud Modem RS232 
(auch für ST) für 80,- DM. Mike 
Steffl, Tel.: 089/521808, 8000 
München 40, Heßstr. 29. 

Hausbesitzer/Hausverwalter Neben¬ 
kosten-Abrechnungsprogramm, im 
gewerblichen Einsatz erprobt, leichte 
Bedienung, GEM, Maus, lauffähig 
auf allen Rechnern mit s/w Monitor, 
Preis 98,- DM, Demo 10,- DM, Info 
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gegen 1,- DM Porto, Unkelbach, 
Merowinger Str. 10, 5000 Köln 1. 

Verkaufe: Original Atari-Gehäuse 
vom ST 260/520 günstig abzugeben 
(+ Originalverpackung ) und/oder 
Original Atari-Bootroms (2 Stck) 
zum Booten von Disktos. Preisange¬ 
bote an: P. Holzberger, Seifartshofstr. 
13, 8630 Coburg. 

9-N-Drucker, Epson RX-80 F/T+, 5 
Jahre, voll funktionsfähig, 250,- DM, 
wegen Umstieg auf 24-Nadler zu 
verkaufen. 2 neue Farbbänder, ohne 
Kabel. Computer-Drucker. Detlef 
Schwellenbach, Grafenbumgert 4, 
5202 Hennef 1, Tel.: 02242/4565. 

** ST-WAITBOX ** - Endlich war¬ 
tet der ST beim Booten auf Ihre Fest¬ 
platte (10-40 sec.)! Kl. Kompaktgerät 
zwischen Steckdose u. Netzstecker. 
Preis: 99,- DM + NN. Tel.-Best.: 
089/521808. 

Verkaufe: VORTEX HD plus 60 incl. 
PD-software 1200,- DM; Floppy 3 
1/2" (720 KB, bis 85 Tracks, internes 


Netzteil) 150,- DM; Original-Soft¬ 
ware: BECKERPAGE ST 80,- DM, 
DATAMAT 40,- DM, ADIMENS 2. 
80,- DM, K-SWITCH 2 40,- DM, 
HITCHHIKER 25,- DM. Literatur: 
Floppy-Arbeitsbuch incl. Disk. 30,- 
DM, Atari ST intern 25,- DM, DATA 
BECKER Tips und Tricks 15,- DM, 
GFA-BASIC Tips und Tricks 15,- 
DM, Das große GFA-BASIC-Buch 
20,- DM; alle Bücher zusammen 80,- 
DM. Hans-Jürgen Schlue, Kirchstr. 
3, 7311 Elkenbrechtsweiler, Tel.: 
07026/7058. 

Atari: Signum-Fontdiskette, ein¬ 
zigartig: 18 Zeichensätze schöner 
deutscher Druckschriften (Fraktur) 
profimäßig erstellt, nur 60,- DM. Info 
anfordem bei: G. Delbanco, Fich- 
testr. 4/4, 2907 Ahlhorn, Tel.: 04435 
/1313. 

HILFE, mein Atari läuft über !!! 2 
MByte reichen. Habe deshalb 16 
Stück IMbRAMs zu 15,- DM zu 
verkaufen. T. Brück, Tel.: 05254 / 
60571. 


Verschiedenes 


SPEZIALREPORT: Eine goldene 
Nase verdienen mit dem Verkauf von 
Informationen. Komplettes Know- 
How für den erfolgreichen Start in ein 
lukratives Versandgeschäft (in engl. 
Sprache). GEBALLTES Erfolgswis¬ 
sen für nur 40,- DM (Scheck, NN + 
5,- DM). Sichern Sie sich Vorsprung 
bei uns, bestellen Sie noch heute. 
RAINBOW PUBLISHING, Hoch- 
süftweg 4, 8903 Bobingen. Tel.: 
08234/8605. 


Für GFA-Club-Mtftglieder kostenlos: Ihre persönliche Kleinanzeige für den Flohmarkt 

Bitte veröffenüichen Sie in der nächstmöglichen Ausgabe der GFA-CLUB-Nachrichten unten folgenden Text (auch < 
ASCII-File auf Diskette möglich)! Für jegliche Anzeigen übernehmen wir keine speziellen Formatierungsarbeiten. 

ils 

Biete an Suche: Kontakte: Verschiedenes: £ 


Maximal 15 Zeilen, je Zeile 30 Zeichen (inkl. Zwischenraum) bei normaler Schriftgröße. 
Bei Fettdruck und grafischen Zeichen sind Abweichungen möglich. 
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Strasse 
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PLZ/Ort 






























































































Datum/Unterschrift 

































































































Nicht-Club-Mitglieder: L- DM/Zeile 5.- DM/Zeile/gewerbliche Anzeigen Club-Mitglied: 

Club-Mitglieder: 3.- DM/Zeile/gewerbliche Anzeigen Nicht-Club-Mitglied: 

gewerbliche Anzeige: 

Der Anzeigenpreis in Höhe von DM liegt bei als V-Scheck: | | bar: | 










































































18 


GFA-CLUB-Nachrichten Nr. 2 - 90 



Stufenloses Ver¬ 
größern/Verklei¬ 
nern von Grafiken 

Folge 2 


In Fortsetzung unserer Aktion vom 
letzten Mal, wo wir in festen, ganz¬ 
zahligen Stufen verkleinerten, geht es 
heute um stufenloses Verändern der 
Größe - sowohl kleiner als auch 
größer. Ganz stufenlos ist es natürlich 
nicht möglich, die Möglichkeiten 
werden vom Monitor und dessen 
Auflösung auf endliche Variationen 
begrenzt 

Die Ausgangsbasis bildet eine Grafik 
in der linken oberen Ecke des Moni¬ 
tors (TESTGRAFTK). In der Praxis 
wird das ein über eine Mausaktion 
eingerahmter und ausgeschnittener 
Teil einer beliebigen Grafik sein. Die 
Ausdehnung dieses Ausschnitts (wir 
nennen ihn Basis- oder Quellgrafik) 
in die Breite nennen wir Quellbreite, 
die in die Höhe Quellhöhe. Im List- 
ing wird die gefüllte Box (PBOX) 
von 4 bis 59 in der Breite gezeichnet, 
das sind - da wir von 0 an zählen 
müssen - 60 Pixel Breite; ebenso er¬ 
rechnet sich die Höhe von 80 Pixeln. 

Breite/Höhe der Ergebnis- oder Ziel¬ 
grafik werden in der Anwendungs¬ 
praxis meist wiederum durch Auf¬ 
ziehen eines Rechteckes per Maus 
gewählt, im Listing sind die Werte für 
Zielbreite und -höhe einfacherweise 
als Zahlenwert angegeben. Sie sind 
beliebig bis maximal bildschirmgroß 
wählbar (siehe VORGABEN). 

Nun fängt RESIZE (engl. M neu in der 
Größe bestimmen") an zu arbeiten. 
Eine grundsätzliche Vorgabe dazu in 
diesem Listing ist, das ohne zusätz¬ 
lichen Speicherplatz für Grafik zu be¬ 
werkstelligen. RESIZE muß also 
vom Bildschirm in den Bildschirm ar¬ 
beiten und dazu unterscheiden, ob 
vergrößert oder verkleinert wird. Ent¬ 
sprechend wird die Arbeitsrichtung 
gewählt. Beim Vergrößern ist außer¬ 
halb der Grafik Platz, um die ver¬ 
größerten, d.h. weiter weg verscho¬ 


benen / kopierten Grafikspalten und 
-zeilen aufzunehmen. Es wird also 
von rechts/unten nach links/oben 
gearbeitet Beim Verkleinern ist es 
genau umgekehrt. Im Quellteil wird 
schneller "gelesen" als im Zielteil 
"geschrieben". 

Mehr als diese Beschreibung kann 
ein Ablauf des Listings zeigen, wie 
das funktioniert. Eine Besonderheit 
nimmt - wie bei der Folge vom letz¬ 
ten Mal - das Verkleinern mit seinem 
Problem ein, ob das Mehr an Quell¬ 
daten übereinanderprojeziert oder 
ausgelassen werden soll. Im Listing 
wird die entsprechende Vörgehens- 
weise durch die Variable 
"put_modus_%" bestimmt Ist diese 
=7, wird projeziert, und ist sie =3, 
wird weggelassen, indem die jeweils 
letzte Spalten- bzw. Zeilenabbildung 
die eventuelle vorherige an der 
gleichen Position ersetzt (engl. RE- 
PLACE). Auch hier zeigt ein Ablauf 
des Listings mehr als 1000 Worte. 


Welche Quellreihe (Spalte oder 
Zeile) auf welche Zielreihe abgebil¬ 
det werden soll, wird durch das Hoch¬ 
zählen und Vergleichen zweier 
Zähler bestimmt, die - je nachdem, 
welcher gerade kleiner ist - darüber 
entscheiden, ob eine neue Quellreihe 
geholt oder eine neu errechnete Ziel¬ 
reihe geschrieben werden soll. Um 
die jeweils ersten bzw. letzten Reihen 
nicht zu übergehen, werden sie zu¬ 
sätzlich getrennt gelesen und ge¬ 
schrieben. 

Im "Abspann" des Listings wird die 
Zielgrafik in eine Variable übernom¬ 
men und noch einmal frisch plaziert, 
um sie ohne überstehende Reste (nur 
beim Verkleinern) in voller Pracht zu 
zeigen. 

Viel Spaß und kreatives Größenfum¬ 
meln mit RESIZE ! 

Andreas Firner 


' Andreas Pirner, Bundesallee 56, 1000 Berlin 31, Tel. 030/ 853 43 50 
' filename.ext lauffähig unter GFA BASIC 2 und 3 

' RESIZE .BAS 09.01.1990 

' - TESTGRAFIK - 

CLS 

DEFFILL 1,2,4 ! Desktopgraue 

PBOX 4,4,59,79 ! gefüllte Box 

PRINT AT(3,3);"TEST" ! mit Text 


ziel_breit%=55 
quellbreit%=60 
ziel_hoch_%=71 
quellhoch_%=80 
put_modus_%=7 

' - GRAFIK IN DER BREITE BEARBEITEN - 

IF ziel_breit%<quellbreit% THEN ! VERKLEINERN 

CLR zaehll%,zaehl2%,quellspalt%,ziel_spalt% ! Werte auf Null initialisieren. 
GET 0,0,0,quellhoch_%,zeile_$ ! Erste Zeile holen ... 

PUT ziel_spalt%,0,zeile_$ ! und setzen. 

WHILE quellspalt%<=quellbreit% ! Quellspalten bis Gesamtbreite hochzählen., 

IF zaehl2%<=zaehll% THEN ! Zählervergleich: Zähler_2 kleiner .... 


VORGABEN - 

Breite: Ziel > Quelle => vergrößern 
Breite: Ziel < Quelle => verkleinern 
Höhe : Ziel > Quelle => vergrößern 
Höhe : Ziel < Quelle «> verkleinern 
7=Odern 3=Replace 
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ADD 

INC 

GET 

PUT 

ELSE 

GET 

PUT 

ADD 

INC 

ENDIF 

WEND 

ENDIF 


zaehl2%,quellbreit% ! Zähler_2 mit Quellbreite hochzählen. 

ziel_spalt% ! Nächste Zielspalte bestimmen. 

quellspalt%,0,quellspalt%,quellhoch_%,zeile_$ ! Quellspalte holen, 

ziel_spalt%,0,zeile_$ ! Ziel setzen (Replace) 

! Zählervergleich: Zähler_l kleiner ... 
quellspalt%,0,quellspalt%,quellhoch_%,zeile_$ ! Quellspalte holen, 

ziel_spalt%,0,zeile_$,put_modus_% ! ans Ziel setzen. 

zaehll%,ziel_breit% ! Zähler_l mit Zielbreite hochzählen. 

quellspalt% ! Nächste Quellspalte bestimmen. 


! ... bis alle Quellspalten bearbeitet. 
! Ende Breite verkleinern. 


IF ziel_breit%>quellbreit% THEN 
CLR zaehll%,zaehl2% 
quellspalt%=quellbreit% 
ziel_spalt%=ziel_breit% 

WHILE quellspalt%>=0 

IF zaehl2%<=zaehll% THEN 
ADD zaehl2%,quellbreit% 

DEC ziel_spalt% 

GET quellspalt%,0,quellspalt%,quellhoch_%,zeile_$ ! Quellspalte holen 

PUT ziel_spalt%,0,zeile_$ ! und ans Ziel setzen. 

ELSE ! Zählervergleich: Zähler_l kleiner ... 

GET quellspalt%,0,quellspalt%,quellhoch_%,zeile_$ ! Quellspalte holen 

PUT ziel_spalt%,0,zeile_$ ! und ans Ziel setzen. 

ADD zaehll%,ziel_breit% ! Zähler_l mit Zielbreite hochzählen. 

DEC quellspalt% ! Nächstkleinere Quellspalte bestimmen. 


! VERGRÖSSERN 

! Zähler auf Null initialisieren, 

! Quellspaltenzähler auf Maximalwert, 

! Zielspaltenzähler auf Maximalwert. 

! Quellspalten bis Null runterzählen. 

! Zählervergleich: Zähler_2 kleiner 
! Zähler_2 mit Quellbreite hochzählen. 
! Nächste Zielspalte bestimmen. 


ENDIF 

WEND ! ... bis alle Quellspalten abgearbeitet. 

GET quellspalt%,0,quellspalt%,quellhoch_%,zeile_$ ! Allerletzte Spalte 

PUT ziel_spalt%,0,zeile_$ ! nachsetzen. 

ENDIF ! Ende Breite vergrößern. 


' -GRAFIK IN DER HÖHE BEARBEITEN-— 

IF ziel_hoch_%<quellhoch_% THEN ! VERKLEINERN wie bei Breite, nur 

CLR zaehll%,zaehl2%,quellzeile%,ziel_zeile% ! zeilenweise ... 

GET 0,0, ziel_breit%,0,spalte$ 

PUT 0,ziel_zeile%,spalteS 
WHILE quellzeile%<=quellhoch_>=% : 

IF zaehl2%<=zaehll% THEN 


ADD 

INC 

GET 

PUT 

ELSE 

GET 

PUT 

ADD 

INC 

ENDIF 

WEND 

ENDIF 


zaehl2%,quellhoch_% 
ziel_zeile% 

0,quellzeile%,ziel_breit%,quellzeile%,spalteS 
0,ziel_zeile%,spalteS 

0,quellzeile%,ziel_breit%,quellzeile%,spalteS 
0,ziel_zeile%,spalteS,put_modus_% 
zaehll%,ziel_hoch_% 
quellzeile% 


! Ende Höhe verkleinern. 


IF ziel_hoch_%>quellhoch_% THEN ! VERGRÖSSERN wie bei Breite, nur 

CLR zaehll%,zaehl2% ! zeilenweise ... 

quellzeile%=quellhoch_% 
ziel_zeile%=ziel_hoch_% 

WHILE quellzeile%>=0 

IF zaehl2%<=zaehll% THEN, 

ADD zaehl2%,quellhoch_% 

DEC ziel_zeile% 

GET 0,quellzeile%,ziel_breit%,quellzeile%,spalteS 
PUT 0,ziel_zeile%,spalteS 
ELSE 

GET 0,quellzeile%,ziel_breit%,quellzeile%,spalteS 
PUT 0, ziel_zeile%,spalteS 
ADD zaehll%,ziel_hoch_% 

DEC quellzeile% 

ENDIF 

WEND 

GET 0,quellzeile%,ziel_breit%,quellzeile%,spalteS 
PUT 0,ziel_zeile%,spalteS 

ENDIF ! Ende Höhe vergrößern. 


VOID INP (2) ! Fertig, auf Tastendruck warten ... 

GET 0, 0,ziel_breit%,ziel_hoch_%,grafikS ! Nochmal Ergebnisgrafik holen 
CLS 

PUT 0,0,grafikS ! und auf "frischem Weiß" darstellen. 

VOID INP (2) ! Fertig, auf Tastendruck warten 

EDIT 

/ - The End - ■— 
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Projekt "Helpline" 


Name/Anschrift 

1. Rechner 

1. Drucker 

2. Rechner 
Plotter 

Programm 

Anwendung 

Praxis 

Stefan Müller 

ST 2/SW/ext. Lauf. 

Atari 520 ST 

GFA-BASIC 3.0/2.0 

Programmierung 

2 

Breslauer Str. 10 

NECP2200 


IST WORD (VI.06) 

T extverarbeitung 

3 

8901 Meitingen 1 



BECKER PAGE 2.0 

DeskTop Publishing 

1 

Alter 17 






Tel.: 08271/5647 






Hans-Jürgen Delfs 

Atari 1040 STF 


GFA-DRAFT -plus 

Flow Sheet 

1 

Kahden 35 

STAR LC 24-10 



Symbole 


2000 Hamburg 65 




Kleine Zeichnungen 


040/6018757 



- 



Mark Campbell 

Atari 1040 STF 


GFA-BASIC 3.0/2.0 

Grafik & Sound 

1 

Dunantstr. 19 

Panasonick KX-P1081 


IST WORD PLUS 

Anwenderprogramme 

2-3 

8500 Nürnberg 



STAD & GFA-MOVIE 


1 

Alter 14 




Grafik 

1-2 

Tel.: 0911/611335 






Peter Karp 

Atari 1040 STF 


GFA-BASIC 3.0 

Programmierung 

2 

Walddörferstr. 45 

STAR LC 10 


LASERC 

Programmierung 

1 

2000 Hamburg 70 



BECKERTEXT ST 

Textverarbeitung 

2 

Alter 29 






Tel.: 040/6521980 






Karl-Heinz W allon 

Atari 520 STM 


GFA-BASIC 3.0 

Programmierun g 

2 

Leidenhofenerstr. 25 

Seikosha SP 1200 AI 


BECKERTEXT V 1.3 

T extverarbeitung 

3 

3557 Ebsdorfergrote 



SCHEIBENKLEISTER H 

Utility 

1 

Alter 27 






Tel.: 06424/4504 






Heino Nolte 

Atari Mega ST 2 

Atari 520 STM 

CAD 3D 2.0 

Animation 


Gerstedter Weg 191 

STAR NL 10 


GFA-BASIC 3.0 

Programmierung 

2 

2000 Hamburg 



TURBO C1.10 

Programmierung 

2 

Alter 25 



MACRO ASSEMBLER 

Programmierung 

1 

Tel.: 040/5519004 






Thilo Simlacher 

Atari 1040 STF 


GFA-BASIC 

Allgemein 

1-2 

Rübezahlstr. 97 

EPSON LX 800 


IST WORD 



8000 München 83 



SIGNUM 



Alter 26 






Tel.: 089/6018316 






Michael Ruder 

Apple He 

Atari Mega ST4 

APPLESOFT BASIC 

Programmierung 

3 

Taubenstr. 54 

STAR SG-10 

Fischertechnik 

GFA-BASIC 2.0 

Programmierung 

3 

7407 Rottenburg 5 



GFA-BASIC 3.07 

Programmierung 

2-3 

Alter 14 1/2 



IST WORD PLUS 

Textverarbeitung 

2 

Tel.: 07472 / 23547 






Jürgen Gerber 

Atari 520+ ST 

Atari PC3 

Open ACCESS PC 

Datenbank ,T extverarbeit 

3 

Mühlwiesgäßchen 6 

Seikosha SL80 AI 



Program. u. Compiler 


6690 St. Wendel 



QUICKBASIC 4.5 PC 

Datenbank, Program. 

2-3 

Alter 35 



GFA-BASIC ST 3.0 

Progammierung 

2-3 

Tel.: 06851/81630 



GFA-FAKT 

geschäftlich 

2-3 




GFA-DESK 

geschäftlich 

2-3 




GEM-Write+Paint PC 

geschäftlich 

2 
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Name/Anschrift 


1. Rechner 
1. Drucker 


2. Rechner 
Plotter 


Programm 


Anwendung 


Praxis 


Marc Cueto 
Fliederstr. 6 / 1 
7152 Aspach 1 


Atari Stacy 4 
Laserdrucker SLM 804 


ACEGEM 

ST-VEREIN 

GFA-BASIC 


Tumierverwaltung 3 

Mitgliederverwalt. 3 


Alter 24 


Tel.: 07191/20385 


Helmut Kam 
Poccistr. 4 
8000 München 2 
Alter 42 

Tel.: 089/7252524 


Atari 1040 ST 
NEC 6 plus 


Atari 520 STM 
Seikosha SP 180 AI 


ADIMENS ST 
IST WORD PLUS 
DATAMATST 
GFA-BASIC 
OMIKRON-BASIC 


Kundenverwalt. 

Textverarbeitung 

Kundenverwalt. 

Sy stemprog rammier. 
Systemprogrammier. 


1-2 

3 

3 

1 

1 


Frank Rauprich 
Gräfinghagenerstr. 11 
4800 Biedlefeld 18 
Alter 26 

Tel.: 05202/83627 


Amiga 500 1MB 
Olivetti DMI05 


GFA-BASIC 3.0 
AMIGA BASIC 


Programmier, von 

Anwendersoftware, 

Diskettenverwaltung 


2 


Helmut Lonczyk 
Im Grund 23 
6272 Niedernhausen 
Alter 56 

Tel.: 06128/72720 


Mega ST 2 
EPSON LQ 800 
STAR NL 10 


Sharp 1600 IST WORD PLUS 

Sharp 1600 P EZ.-KALK. 

STAD 

GFA-BASIC 3.0 


T extverarbeitung 

Kalkulation 

Grafik 

Programmierung 


2 

2 

2 

1 


Winfried Hartwig 
Friedbergstr. 14 
1000 Berlin 19 
Alter 47 

Tel.: 030/3241579 


Atari 520 ST 
TA-TRD 170S (Typenr.) 


GFA-BASIC 


Programmierung 


1-2 


Adressänderungen 


Thorsten Richter 
Zur Siedewurth 1 
2854 Loxstedt 
Alter 19 

Tel.: 0471 / 73456 

Bernhard Hampel 
Buchen weg 29 
6110 Dieburg 
Alter 29 

Tel.: 06071/22285 


Atari 1040 ST 
OKI 192 


Atari 1040 ST 
STAR NX 15 


GFA-BASIC 3.0 


Grafik, Spiele 
Programmierung 


2-3 


GFA-BASIC 2.0 


Datenbank und 
T extprogrammierung 


2 


Projekt 

Name: 

"HELPLINE" 

Alter. 

Straße: 

PLZ/Oru 

Telefon: 

Hardware 

1. Rechner. 

2. Rechner. 


Drucker 

Plotter: 


Software 

Proframm 

Anwendungsbereich: 

Praxis* 













• 1: Anfinger 2: Fortgeschrittener 3: Profi 



Bioe füllen Sie diesen Abschniu vollständig aus und senden Sie ihn an den GFA-CLUB, Heerdt er Sandberg 30-32, 

4000 Düsseldorf 11 




GFA-HELPLINE 

Die Helpline ist ein Projekt zum ak¬ 
tiven Erfahrungsaustausch und zur 
sinnvollen Hilfestellung für CLUB- 
Mitglieder. 

Möchten Sie spezielle Anwendungen 
und Erfahrungen austauschen, Tips 
und Tricks weitergeben oder Hilfestel¬ 
lung leisten, füllen Sie den neben¬ 
stehenden Coupon aus, und schicken 
Sie diesen an die Redaktion des GFA- 
CLUBS. 
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Beschreibung der 
Kompaktierroutine 


Prinzip: 

Falls mehrere gleiche Bytes im 
Speicher hintereinanderliegen, wer¬ 
den diese folgendermaßen codiert* 

1. Markierungsbyte (s.u.) 

2. Anzahl der Bytes 

3. Bitmuster der Bytes 

Dabei tritt folgendes Problem auf: 
Das Markierungsbyte darf in der zu 
kompaktierenden Datei nicht Vor¬ 
kommen. Bei kleineren Dateien (z.B. 
Bilder mit 32 KB o.ä) kann jedoch 
meist ein Byte ausfindig gemacht 
werden (bei ’PACKER.IS’ Zeile 10- 
23). Falls dies nicht möglich ist, über¬ 
gibt das Programm in dO einen Fehler¬ 
code und bricht ab. 

Format einer kompaktierten 
Datei: 

Byte 0...3 Länge der ungepackten 
Datei 


Byte 4...7 Langwort mit $12345678 
verhindert, daß aus Ver¬ 
sehen nicht gepackte Da¬ 
teien entpackt werden 
(führt sonst zu Abstürzen!). 
Byte 8 Markierungsbyte 
Byte 9... Daten 

Einbindung in GFA-BASIC: 

Die Assemblerroutinen wurden mit 
dem GFA-ASSEMBLER geschrie¬ 
ben und können direkt mit * IN¬ 
LINE Eingebunden werden. Der Auf¬ 
ruf erfolgt mit 

' laenge%=C:Adr%(L:a%,L:b%,L:c%)' 

a%... Adresse der Quelle 

(bei ’PACKER.IS’ unge- 
packte Daten, bei ’ENT- 
PACK.IS’ gepackte Da¬ 
ten) 

b%... Zieladresse 

(siehe oben, nur genau um¬ 
gekehrt) 

c %... Länge der Quelldaten 

(nurbei ’PACKER.IS’) 


laenge%... Länge der Zieldaten (bei 
-1 gab’s einen Fehler) 

Bei anderen Assemblern muß evü. die 
Größe des INLINEs erhöht werden, 
wenn diese den Code nicht so gut op¬ 
timieren! 

Auf der Diskette befindet sich außer¬ 
dem noch die Datei ’VSYNC.LST’. 
Hierbei handelt es sich um eine kurze 
Routine, die das Flimmern des 
Mauspfeils im oberen Bildschirm¬ 
bereich verhindert, indem es nach 
einem VSYNC wartet, bis der 
Elektronenstrahl am Mauspfeil vor¬ 
beigewandert ist (REPEAT..UNTIL 
TIMERt%). 

Roland Beck 


Komprimierer (BASIC-Routine) 


Entkomprimierer (BASIC-Routine) 


INLINE packer%,&H7E 

FILESELECT #"File laden", H \*. M ",file$ 

IF EXIST(file$) 

OPEN "i M ,#1,file$ 
s_laenge%=LOF(#1) 

CLOSE #1 

IF FRE(0)>=s_laenge%*2 
DIM source|(s_laenge%) 

DIM destinationl(s_laenge%) 

VOID FRE(0) 

source%=VARPTR(source|(0)) 
destination%=VARPTR(destination1(0)) 

BLOAD file$,source% 

IF s_laenge%=32000 ! wenn es sich um ein Bild handelt 

BMOVE source%,XBIOS (2),32000 ! Anzeigen 

ENDIF 

laenge%=C:packer%(L:source%,L:destination%,L:s_laenge%) 

IF laenge%=-l 

ALERT 3,"Es ist kein Markierungs|-byte möglich ",1,"Ab¬ 
bruch", egal% 

ELSE 

text$="Das File wurde auf eine Länge |von 
"+STR$(laenge%)+" Bytes kom 
paktiert." 

text$=text$+"|Das sind "+STR$(100-INT(laenge% 
/s_laenge%*100))+" Pro 
zent weniger." 

ALERT 3,text$,1," OK ",egal% 

FILESELECT #"File speichern","\*file$ 

IF file$<>"" AND file$<>"\" 

BSAVE file$,destination%,laenge% 

ENDIF 

ENDIF 

ERASE source| (),destination| () 

ELSE 

ALERT 3, "Kein Speicher frei ", 1,"Abbruch",egal% 

ENDIF 

ENDIF 


INLINE entpack%,&H48 
FILESELECT "\*file$ 

IF EXIST(file$) 

OPEN "i",#1,file$ 
lof%=LOF(#1) 

CLOSE #1 

DIM source| (lof%) 

BLOAD file$,V:source|(0) 

DIM destinationl(LPEEK(V:source|(0))) 

' in V:source|(0) steht die Länge des Files ! 
VOID FRE(0) 

source%=VARPTR(source|(0)) 
destination%=VARPTR(destination|(0)) 
laenge%=C:entpack%(L:source%,L:destination%) 
IF laenge%=32000 

BMOVE destination%,XBIOS(2),laenge% 

ENDIF 

FILESELECT "\file$ 

BSAVE file$,destination%,laenge% 

ENDIF 
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Komprimierer (ASSEMBLER-Routine) 

.TEXT 

movem.l a3-a6,-(sp) /Register retten 

;Länge=C:packer%(L:Source_Adresse,L:Destination_Adresse, L:Länge_Source) 
movea.l 20(sp),a4 /Sourceadresse 

movea.l 24(sp),a3 /Destinationadresse 


move.l 28(sp),d3 

movea.l a4,a0 

movea.l a4,a5 

adda.l d3,a5 


/Markierungsbyte 

suchen 



clr. w 

d5 

Schleifel: 

move.b 

(aO)+,dO 


cmp.b 

d5,d0 


beq. s 

Next_d5 

Weiter: 

cmpa.1 

aO, a5 


bne. s 

Schleifel 

/Komprimieren starten 



movea.1 

a4, aO 


movea.l 

a3, al 


move.1 

d3, (al) + 


move.1 

#$12345678, (al) + 


move.b 

d5, (al) + 

Do_it: 

move.b 

(aO)+ , dO 


move.b 

(aO), dl 


move.b 

1 (aO) ,d2 


cmp.b 

dO, dl 


bne. s 

normal 


cmp.b 

d0,d2 


bne. s 

normal 


move.b 

d5, (al) + 


clr.b 

d4 

Schleife2: 

move.b 

(aO)+, dl 


addq.b 

#1, d4 


cmpi.b 

#255,d4 


beq. s 

max 


cmpa. 1 

aO, a5 


blt .s 

max 


cmp.b 

dO, dl 


beq. s 

Schleife2 

max: 

subq.1 

#1, aO 


move.b 

d4, (al) + 

normal: 

move.b 

dO, (al) + 


cmpa.1 

aO, a5 


bne. s 

Do it 


move.1 

al, dO 


sub. 1 

a3, dO 


movem.1 

rts 

(sp)+,a3-a6 

Next d5: 

cmpi.b 

#255,d5 


beq. s 

Abbruch 


addq.b 

#l,d5 


movea.l 

a4, aO 


bra. s 

Weiter 

Abbruch: 

move.l 

#-l,d0 


movem.1 

rts 

.END 

(sp)+,a3-a6 


;Länge 

;Sourceadresse nach a5 
/Länge auf a5,a5 ist Endadresse 


/Byte nach dO 

/D5 mit Byte vergleichen 

/gleich? 

/A0 schon am Ende? 

/wenn nicht,weiter, sonst d5=Markierungsbyte 


/Source 
/Destination 
/Länge nach Dest. 

/Magic nach Dest. 

/Markierungsbyte nach Zieladr. 
/aktuelles Byte holen 
/und zwei nachfolgende 

/l.Byte mit 2. vergleichen 
/wenn ungleich,alles normal 
/l.Byte mit 3. vergleichen 
/wenn ungleich,alles normal 
/wenn Byte 1-3 gleich,komprimieren 
/Anzahl auf 0 


/maximal 255 Bytes hintereinander 
/schon am Ende ? 


/Anzahl nach Zieladresse 

,*A0 mit Endadresse vergleichen 

/Länge des kompaktierten Codes 
/in DO berechnen 

/und tschüss 

/d5 schon 255? 

/wenn ja,jedes Byte vorhanden 
Zd5 um eins erhöhen 
/a0 wieder mit Source_adr laden 
/nochmal 

/Fehler: kein Markierungsbyte 
/möglich => Register 
/rekonstruieren und Ende 
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Entkomprimierer (ASSEMBLER-Routine) 



.TEXT 
movem.1 

a3-a6,-(sp) 

;Void C:entpack%(L:Source_Adresse%,L:Dest_Adresse) 

, 

movea.1 

20(sp),aO 

;Sourceadresse nach AO 


movea.1 

24(sp),al 

;Destinationadresse nach Al 


move.1 

(aO)+,d2 

;Länge nach D2 


move.1 

(aO)+ , d5 

;Magic nach d5 


move.b 

(aO)+,dl 

;Markierungsbyte nach Dl 


movea.1 

al, a2 



adda.1 

d2,a2 

;Endadresse berechnen 


cmpi.1 

#$12345678,d5 

;Magic mit d5 vergleichen 


beq 

Schleife 

;wenn gleich —starten 


move.1 

#-l,dO 

;sonst Fehler ausgeben 


movem.1 

rts 

(sp)+,a3-a6 

;und tschüss 



/ A2 ...Endadresse 
; D3 ...gelesenes Byte 



; D4 ...Anzahl 

der kompaktierten Bytes 

Schleife: 

move.b 

(aO)+,d3 

;Byte auslesen 


cmp.b 

d3, dl 

;und mit Markierungsbyte vergleichen 


bne 

Ungleich 

/ungleich? 


move.b 

(a0)+,d4 

/wenn nicht,Anzahl der Bytes nach D4 


move.b 

(a0)+,d3 

/Bitmuster nach D3 

Do_it: 

move.b 

d3, (al) + 



cmpi.b 

#2,d4 



dbeq 

d4,Do it 


Ungleich: 

move.b 

d3, (al) + 



cmpa.1 

al, a2 



bgt 

Schleife 



move.1 

d2,d0 

/Länge nach dO 


movem.1 

rts 

(sp)+,a3-a6 

/ Ende 


.END 


Roland Beck 


Automatischer Programmstart 
unter TOS 1.4 

Unter dem neuen Betriebssystem TOS 1.4 lassen sich 
nun auch GEM-Anwendungen beim Kaltstart oder nach 
Reset automatisch starten. Dazu sind vorab einmalig fol¬ 
gende Schritte erforderlich: 

• Klicken Sie das Programm im Auswahlfenster auch 
innerhalb von Ordnern an. 

• Melden Sie unter EXTRAS des DESK-Tops AN¬ 
WENDUNG an. 

• Wählen und installieren Sie in der erscheinenden 
Box AUTO und ANWENDUNGS ART. 

• Vergessen Sie nicht, Ihre Arbeit zu sichern. 

Viel Vergnügen! 

Hans-Ulrich Hilgenfeld 


An alle CAD-PC- 
Anwender/-innen 

Upgrade von 

GFA-DRAFT-plus PC (Grundversion) auf 
GFA-DRAFT-plus PC (Erweiterte Version) auf 
GFA-CAD PC 

Wir bieten seit geraumer Zeit eine erweiterte Version un¬ 
seres GFA-DRAFT-plus PC an, dieses kostet 398,- DM. 
Sie als Anwender/-in von GFA-DRAFT-plus PC 
(Grundversion) haben die Möglichkeit, für 99,- DM ein 
Upgrade anzufordem. Legen Sie bitte die Originaldis¬ 
kette, das Handbuch und einen Verrechnungsscheck bei. 
Sie können auch per Nachnahme bestellen. 

Wollen Sie jedoch auf unser neues GFA-CAD PC 
(798, DM) umsteigen, ermöglichen wir Ihnen auch 
dieses. Das Upgrade von GFA-DRAFT-plus PC (Grund¬ 
version nach GFA-CAD PC kostet 499,- DM, von GFA- 
DRAFT-plus PC (erweiterte Version) nach GFA-CAD 
PC 400,- DM. 
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Assembler für den SAB 
80535 in GFA-BASIC 


Der schnellste Weg, ein kleines Pro¬ 
gramm zu schreiben, ist die direkte 
Eingabe der Maschinencodes. Für 
größere Programme ist das natürlich 
nicht machbar. Da die Maschinen¬ 
codes wenig anschaulich sind, hat 
man eine Sprache erfunden, bei der 
jedes Kommando durch ein Wort er¬ 
setzt ist. Diese sog. Mnemonics kann 
man sich sehr viel leichter merken. 
"SETB" heißt beispielsweise "Setze 
Bit". Es folgt dann noch die Angabe, 
welches Bit gemeint ist. Wir 
brauchen dann aber ein sogenanntes 
Assembler-Programm, das diesen 
"Klartext" in den Machinencode 
übersetzt. 

Das Clubmitglied Stefan Gimus hat 
mir ein Rohprogramm für den 8051, 
den Urvater unserer Mikrocontroller- 
famüie, überlassen. Für die Überar¬ 
beitung dieses Programmes konnte 
ich Friedemann Schlosser gewinnen. 
Er hat als Schüler noch beneidens¬ 
wert viel Zeit und den nötigen Idea¬ 
lismus. Er ist weit über das hinausge¬ 
gangen, was ich mir vorgestellt hatte 
und was für ein Funktionieren nötig 
gewesen wäre. Sie müssen nicht auf 
die gewohnten Pulldown-Menüs und 
andere Errungenschaften des GEM 
verzichten. Friedemann wird in einer 
eigenen Artikelreihe einen Blick 
hinter die Kulissen erlauben, das 
Prinzip wichtiger Programmteile er¬ 
klären und von seinen Erfahrungen 
mit dem GFA-BASIC berichten. 

Das Konzept des Programmes ist sehr 
modern. Alle Funktionen werden 
angeboten, die man bei der Pro¬ 
grammerstellung benötigt. Das wich¬ 
tigste ist 1. ein Editor zum Schreiben 
und Ändern des Quellcodes und 2. 
der Assembler selbst. Er erzeugt den 
Maschinencode und schreibt ihn in 
die ersten beiden Spalten. Alles spielt 
sich in einer (!) reinen Textdatei ab. 
Natürlich kann man den Text aus- 
drucken lassen. Später soll noch die 
direkte Ansteuerung eines EPROM- 
Programmierers dazukommen. Eine 
DOWN-LOAD-Funktion schreibt 
den Maschinencode über die RS232- 
Schnittstelle in ein Mikrokontroller¬ 
system. Das ist aber Stoff für einen 
eigenen Artikel. Abgerundet werden 
die Eigenschaften durch eine Termi¬ 
nalfunktion, mit deren Hilfe man sich 


mit einem Subsystem über die 
RS232-Schnittstelle unterhalten 
kann. 

Der Assemblerteil des Programmes 
ist ziemlich dumm. Er erwartet den 
Quelltext an ganz bestimmten Stellen 
in einer Zeile. In Spalte 3 stehen Mar¬ 
ken (Lables). Es folgen in Spalte 4 die 
Kommandos (Mnemonics) und in 
Spalte 5 Daten (Attribute). Umso "in¬ 
telligenter" ist der Editor. Verläßt man 
eine Zeüe, rückt er alle Angaben zu¬ 
recht und prüft diese auch noch auf 
ihre Richtigkeit (Syntax-Check). 

Völlig unwichtig ist die Spalte 6 für 
den Assembler. Ganz wichtig ist sie 
aber für den Programmierer. Hier 
können wir unsere Geistesblitze do¬ 
kumentieren und sollten damit kei¬ 
nesfalls sparen. Wenn wir nach 
einigen Wochen etwas ändern 
müssen, sind wir für jedes Wort dank¬ 
bar, das dort steht. In der Kommentar¬ 
spalte können wir mit Kleinbuch¬ 
staben schreiben. In den anderen 
Spalten ist automatisch CAPS LOCK 
eingeschaltet, denn der Assembler 
versteht nur Großbuchstaben. Friede¬ 
mann hat eine Menge solcher netten 
Hilfen eingebaut! 

Mit den ersten beiden Spalten haben 
wir wenig zu tun. Hier erscheint 
höchstens einmal eine Fehlermel¬ 
dung. Normalerweise schreibt hier¬ 
hin der Assembler die Adresse, an der 
die Maschinencodes stehen müssen 
(Spalte 1), und den Maschinencode 
selber (Spalte 2). 

Ein brauchbarer Assembler muß ein 
bißchen mehr können, als nur die 
Mnemonics in Machinencodes zu 
übersetzen. Eine ganz große Ftilfe 
sind z.B. Marken, sogenannte Lables. 
Sie stehen für eine Adresse oder all¬ 
gemein für eine Zahl und ermög¬ 
lichen uns auch hier mit Worten zu ar¬ 
beiten. Lables werden auf zwei Arten 
definiert: 

• Ein Name in Spalte 3 steht für die 
Adresse der jeweiligen Zeile. Sie 
wird immer dann eingesetzt, wenn 
der Name in Spalte 5 auftaucht. 
Eine typische Anwendung sind 
z.B. Sprünge (LJMPLable). 


• Man kann aber auch beliebige La¬ 
bles definieren mit dem Kom¬ 
mando EQU (equal = gleich). Sol¬ 
che Definitionen stehen sinnvol¬ 
lerweise am Beginn des Pro¬ 
grammes. Dieses EQU hat aber 
wohlgemerkt nichts mit den Pro¬ 
zessorkommandos zu tun. 

In dem Beispielprogramm verwen¬ 
den wir EQU-Anweisungen, um die 
Unterprogramme abzukoppeln. Sie 
können als Paket ausgelagert und ge¬ 
trennt bearbeitet werden. Mit einem 
leistungsfähigen Satz von Unterpro¬ 
grammen kann man dann ähnlich be¬ 
quem programmieren, wie mit einer 
höheren Betriebssprache. 

Ein weiteres Pseudo-Kommando 
(wie ich es nennen möchte) ist die 
ORG-An Weisung (Origin = Beginn). 
Sie teilt dem Assembler mit, wo ein 
Maschinencode im Speicher liegen 
soll. 

Eine ganz wichtige Aufgabe hat das 
ORG-Kommando bei der Strukturie¬ 
rung der Programme. Sicher haben 
Sie von diesem Schlagwort schon ge¬ 
hört Es besagt eigentlich nur, daß 
man ein Programm in Funktions¬ 
blöcke zerlegt die möglichst selb¬ 
ständig sind. Das hat auf die Funktion 
keinen Einfluß, erleichtert dem Pro¬ 
grammierer aber sehr die Arbeit Die 
Programme sind übersichtlicher, ein¬ 
facher zu verstehen und vor allem 
leichter zu warten, denn ein Pro¬ 
gramm ist ja eigentlich nie richtig fer¬ 
tig- 

Das Beispiel "DEMO.2" zeigt die 
schon bekannte Ansteuerung der 
RS232-Schnittstelle. Diesmal ver¬ 
wenden wir aber Unterprogramme 
für die Initialisierung, die Ein- und 
Ausgabe der Zeichen. Damit verein¬ 
facht sich das Hauptprogramm auf 
vier Zeilen. Wir haben einen 1. Block 
mit Definitionen. Das Hauptpro¬ 
gramm beginnt als Block 2 ab 
Adresse 000. Block 3 enthält die Un¬ 
terprogramme. Durch die Einsprung¬ 
liste bleiben die Einsprungadressen 
gleich. 

Rolf Gade mann 
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• ** * 

r DEMO-2 

: ECHO FUER 

8051 UND 80535 

(Unterprogramme) **** 


; 17.02.1990 21: 

51:02 





OPEN 

EQU 

$0200 

; 

LISTE der UNTERPROGRAMME 


OUTPUT 

' EQU 

$0203 

; 




INPUT 

EQU 

$0206 





ORG 

$0000 


? HAUPTPROGRAMM: 



0000 

75 81 30 

HAUPT0: 

: MOV 

♦SP,#$30 

; STACK setzen 


0003 

12 02 00 


LCALL 

♦OPEN 

; RS232 initialisieren 


0006 

12 02 06 

HAUPT1; 

: LCALL 

♦INPUT 

; Zeichen einiesen 


0009 

12 02 03 


LCALL 

♦OUTPUT 

; Zeichen ausgeben 


oooc 

80 F8 


SJMP 

<HAUPT1 

; Schleife 


ORG 

$0200 


; UNTERPROGRAMME: 



0200 

02 02 09 


LJMP 

<OPEN0 

; Initialisiere RS232 


0203 

02 02 15 


LJMP 

<OUTP0 

; A -> RS232 


0206 

02 02 ID 


LJMP 

CINPUT0 

; RS232 -> A 


._ 

OPEN- 

- Timer 1 für Baudrate und RS232 prog. 


0209 

75 89 20 

OPENO: 

MOV 

♦TMOD,#$20 

; Timer 1 , 11.059 MHz 


020C 

75 8D FD 


MOV 

♦TH1,#$FD 

; Reloadwert 9600 Bd 


020F 

D2 8E 


SETB 

*TR1 

; Start TIMER 1' 


0211 

75 98 DA 


MOV 

♦SCON,#$DA 

; Empfaenger freigeben 


0214 

22 


RET 




;- 

OUTPUT - 

- Zeichen von 

A nach RS232 schreiben 


0215 

30 99 FD 

OUTPO: 

JNB 

♦TI, <OUTPO 

; Warten bis Sender leer . 


0218 

F5 99 


MOV 

♦SBUF,A 

; Zeichen ausgeben 


021A 

C2 99 


CLR 

♦TI 

; Flag loeschen 


021C 

22 


RET 




;- 

INPUT - 


- Zeichen von RS232 nach 

A lesen 


021D 

30 98 FD 

INPUT0 

: JNB 

♦RI,<INPUT0 

; Warten auf Zeichen. 


0220 

E5 99 

INPUT1 

: MOV 

A, *SBUF 

; Zeichen nach A laden 


0222 

C2 98 


CLR 

♦RI 

; Flag loeschen 


0224 

D3 


SETB 

C 

; CARRY als Flag setzen 


0225 

22 


RET 




END 



; ganz wichtig ! 




Schriftbildoptimierung 
bei Nadeldruckern 


Bei älteren (gelegentlich auch 
neueren) 9-Nadeldruckem taucht ge¬ 
legentlich das Problem auf, daß aus¬ 
gegebene Texte trotz NLQ in der 
Qualität minderwertig wirken. Dies 
liegt oft nur an einigen wenigen Wör¬ 
tern oder Zeilen, bei denen der 
Druckkopf um einen Bruchteil eines 
Millimeters daneben gehämmert hat. 
Hat man nun etwas Zeit und Farb¬ 
band, kann man die Qualität meist 
deutlich verbessern, indem man eine 
Zeile mehrfach druckt (ähnlich wie 
bei Signum). 


In GFA-BASIC sieht das so aus: 


In der Variablen lq% wird festgelegt, 
wie oft eine Zeile geschrieben wer¬ 
den soll. In der Regel reicht zweimal. 
Dieser Wert kann auch direkt in die 
For-Next-Schleife eingesetzt wer¬ 
den, die Variable ist dann unnötig. 

Will man einen längeren Text auf 
diese Weise ausdrucken, so empfiehlt 
es sich, den Text in einem Feld (z.B. 
Text$(n)) abzuspeichem und dann 
mit einer Schleife, in die die Routine 
eingesetzt wird, auszugeben. 


Noch ein paar Tips für die Fehler¬ 
suche: Nach jeder LPRINT Anwei¬ 
sung in der Aus¬ 
gabeschleife muß 
ein stehen, da 
sonst eine neue 
Zeile angefangen 
wird. Fängt der 
Drucker trotzdem 
eine neue Zeile an, 
so sollte man die 
DIP-Schalter über¬ 
prüfen (Auto Line Feed). 

Übrigens: Wenn Ihr Drucker über 
verschiedene Schriftarten bei 

gleicher Zeichenbreite verfügt, kann 
man während der Ausgabe die 

Schriftart ändern. Auf diese Weise 
kann man zu teils sehr interessanten 
und futuristisch wirkenden Schrift¬ 
bildern gelangen. 

Martin R. Wollny 


lq%=2 



text$="Dies 

ist ein Probetext" 

FOR a%=l TO 

lq% 

! Anzahl der Wiederholungen 

LPRINT text$;CHR$(13); 

! Ausgabe (ohne Line Feed) 

— 


! Hier könnte man z.B. die 

— 


! Schriftart verändern. 

NEXT a% 


! Auf zur nächsten Runde 

LPRINT 


! nächste Zeile 









Schlichting 
Computervertrieb 
Katzbachstr. 6+8 
1000 Berlin 61 
0 30/7 86 43 40 

HABA 

COMPUTER AG 
Münsterstr. 9 
2000 Hamburg 54 
0 40 / 5 66 01-1 

Sienknecht 
B ürokommunikation 
Heiligengeiststr. 20 
2120 Lüneburg 
0 41 31/4 61 22 

EDV- 

Beratungscenter 
Cuxhavener Str. 1 
2170 Hemmoor 
0 47 71 /74 04 

Der Computerladen 
Cori ansberg 2 
2210 Itzehoe 

Layout Service 
Eckemförder Str. 83 
2300 Kiel 1 
04 31/18 09 75 

C omputer-Studio 
oHG 

Am Lomsenpark 31 
2380 Schleswig 
0 46 21 /2 98 51 


Computersysteme 
Am Pferdemarkt 5 
2720 Rotenburg / W. 
0 42 61 /2129 


PZ-Sequenzdesign 

GBR 

Bahnhof str. 24 
2842 Lohne (Oldb.) 
0 44 42/58 64 


IVEMA TELE- 
POENT 

Posthalterweg 4a 
2900 Oldenburg 


Carl Wöltje GmbH 
Heiligengeiststr. 6 
2900 Oldenburg 
0441/40 45 93 

Friesland Data 
Berliner Str. 17 
2948 Schortens 

Com Data 
Am Schiffer¬ 
graben 19 
3000 Hannover 1 
05 11/32 67 36 

SMC GmbH 
Schulstr. 7 
3007 Gehrden 1 
0 51 08/51 67 


GFA- 

CLUB-Händler 


F&T 

Computervertrieb 
Am Homberg 1 
3040 Soltau 
0 51 91/1 65 22 

Witte Bürotechnik 
Koopmannshof 69 
3250 Hameln 1 
0 5151/75 95-96 


Dr. Hildebrandt 
& Buchholz 
Magdeburger 
Kamp 10 
3380 Goslar 
0 53 21 /8 07 31-32 


TRIFOLIUM 
Grassweg 14 
3500 Kassel 
05 61 /282824 


OFFICE 

AUTOMATION 

Van-der-Werff- 

Str.6 

4000 Düsseldorf 1 
02 11/77 20 31 

Computer 
Hard- & Software 
Irenenstr. 76 c 
4000 Düsseldorf-Un- 
terrath 

HOCO 

EDV-Anlagen 
GmbH 
Ellerstr. 155 
4000 Düsseldorf 1 
02 11 /78 52 13-14 

Rota Datenverarbei¬ 
tung GmbH 
Süchtelner Str. 7 
4060 Viersen 1 
021 62/3 10 11 

ssb software-studio 
brakmann 
Württembergstr. 34 
4200 Oberhausen 11 
02 08/66 12 95 

Bottroper 
Computer Team 
GbR 

Pestalozzi str. 35 
4250 Bottrop 
0 20 41 /6 21 20 


R. Wischolek 
Computertechnik 
Mesteroth 9 
4250 Bottrop-Feld¬ 
hausen 

0 2045/8 1638 

EDV-Thiel 
Lörhof 8 
4350 Reckling¬ 
hausen 

0 23 61 /2 80 29 


Basis Computer 
Systeme GmbH 
Daimlerweg 39 
4400 Münster 
02 51/71 99 75-9 

OCB GmbH 
Wall str. 3 
4422 Ahaus 
02561 /5021 


DELO-COM- 
PUTERTECHNIK 
Kranenbusch 28 
4600 Dortmund 15 


Menüs GmbH 
Poststr. 15 
4650 Gelsenkirchen 
02 09/525 72 

CSF Computer & 
Software GmbH 
Heeperstr. 106-108 
4800 Bielefeld 1 
05 21/6 1663 


Knoll Computer 
Wilhelmstr. 5 
4904 Enger 
052 24/44 19 


ProElektronic 
Königstr. 17 - 19 
4972 Löhne 1 
0 57 32/10 19-0 

Rothkegel & Rolf 
Vogelsanger 
Str. 278 
5000 Köln 30 
02 21/54 10 36 

MP Software 
Service 
Reuterstr. 49 
5060 Bergisch Glad¬ 
bach 2 

0 22 02/2 17 84 

RODA-SOFT 
Bahnhof str. 6 
5120 Herzogenrath 
0 24 06 / 791 00 

EDV-Vertrieb 
Gerhard-Hauptmann- 
Str. 33 

5270 Gummersbach- 
Dieringhausen 
0 22 61/7 46 60 

Bürocenter Lehr 
GmbH 
Güterstr. 82 
5500 Trier 
06 51/20 97 10 


Computer Finke 
Kipdorf 22 
5600 Wuppertal 1 
0202/45 32 33 


Wrede 
Ruhrplatz 7 
5778 Meschede 
02 91 /60 94 


W. Kräling KG 
Pf 2240 

5788 Winterberg 
0283/504-8 


UTS - COMPUTER¬ 
DIENST 
Langgasse 40 
6082 Moerfelden- 
Waldorf 
0 61 05 / 2 37 65 

Georg Heim oHG 
Heidelberger 
Land str. 194 
6100 Darmstadt- 
Eberstadt 
0 61 51/5 60 57 

Digitron GbR 
Rodheimer Str. 34 
6300 Gießen 
06 41 / 8 55 66 

Orion Computer 
Systeme GmbH 
Friedrichstr. 22 
6520 Worms 
0 62 41/67 57-6758 

MCA 

Computer Center 
Sindelfinger Allee 1 
7030 Böblingen 
07031/22 60 15 


Böhmer 

Electronic GmbH 
Wilhelm-Zapf-Str. 9 
7080 Aalen 
073 61 /626 86 

Matthias Hohner AG 
Hohnerstr. 8 
7218 Trossingen 
0 74 25 / 2 00 

Computerstudio 
W. Brock GmbH 
Fedemseestr. 17 
7410 Reutlingen 
071 21 /3 42 87 

Dorfschmid 
Bürotechnik 
Schulweg 18 
7442 Neuffen/N. 
07025/64 42 

R. Gärüg 

Software-Entwick¬ 

lung 

Ringstr. 4 
7450 Hechingen- 
B euren 

0 74 77/81 58 


SRE Computer¬ 
center 

Schloßplatz 3 
7450 H ec hin gen 
0 74 71 /I 45 07 

Martin & Martin 
Soft- und Hardware¬ 
vertrieb 
Kruttenaustr. 9 
7630 Lahr/Schw. 
07821/4890 und 
41050 


Kaltenbach EDV 
Bach str. 73 
7465 Geislingen 
07433/52 44 

U. Meier 
Computersysteme 
Ringstr. 4 
7700 Singen /Htwl. 
07731 / 6 82 22 

Computer Fachge¬ 
schäft Rösler 
Rheingutstr. 1 
7750 Konstanz 
075 31 /2 1832 

Computer und 
Zubehör 
Pochgasse 31 
7800 Freiburg 
07 61/55 42 80 


Metzner Electronic 
Postfach 1114 
7801 Umkirch 
0 76 65/5817 


Software-Service 
Ritterstr. 6 
7833 Endingen 
076 42/3875 

Bürobedarf 
Friedrich Resin 
Am Dreispitz 
7852 Binzen 
0 76 21 / 66 01-0 

Hettler GmbH 
Lenzburger Str. 4 
7890 Waldshut- 
Tiengen 
07751 /30 94 

EDV + BÜRO 
SERVICE HESS 
Ulrich str. 24 B 
7918 Illerüssen 
0 73 03 / 4 11 89 


ESCON GmbH 
Rindermarkt 8 
8050 Freising 
0 81 61 /1 30 89 


Elektronik Center 
Hindenburgstr. 45 
8100 Garmisch-Par¬ 
tenkirchen 
0 88 21 /7 15 55 

Elektronik Center 
Wachterstr. 13 
8170 Bad Tölz 
0 80 41 /4 15 65 


FS Computer 
Hechtseestr. 1 
8208 Kolbermoor 
08031 /946 14 

Computerzubehör/ 
PD-Service 
Robert Rehrl 
Stettener Weg 8 
8221 Teisendorf 
0 86 66/62 49 

Dutge Computer 
Kantstr. 15 
8225 Traunreut 
0 86 69/3 67 53 

A.SPITZER 
EDV-Beratung 
Sunklergäßchen 6 
8240 Berchtesgaden 
0 86 52/6 31 02 

Andreas Meyer 
Hard- und Software 
Frauenhofer Str.29 
8255 Schwindegg 

Karstein Daten¬ 
technik 
Aicha 10a 
8451 Birgland 
09 86/10 28 

AGP-Shop oHG 
Auf der Schanze 4 
8490 Cham 
09971 / 97 23 

hib Computer 
GmbH 

Äußere Bayreuther 
Str. 57a-59 
8500 Nürnberg 21 
09 11/56 29 26 

Graf & Schick 
EDV-Lösungen 
Hauptstr. 32 a 
8542 Roth 
0 9171/50 58-59 

Schöll 

Computercenter 
Dominikanerplatz 5 
8700 Würzburg 
0931/41 90 60 


VC GmbH 
Schwalbenstr. 7 
8901 Stadtbergen 
08 21 /43 50 26 



GFA-BASIC 3*5 Interpreter Amiga 


Weiterentwicklung des GFA-BASIC 3.0 Interpreter mit 35 zusätzlichen Befehlen aus der 
linearen Algebra und Kombinatorik. Außerdem verbesserte Editor-Eigenschaften 
(Funktionen falten und Suche in- Kopfzeilen gefalteter Funktionen bzw. Prozeduren) 


GFA-BASIC 3.5 Compiler 


Mit dem integrativen Compiler werden Ihre GFA- 
BASIC-Programme noch schneller. 

Viele Optionen und Linker (kompatibel zu A-Link und B-Link) 
für andere Programmiersprachen im Lieferumfang enthalten. 


DM 139,- 






Der Einstieg in GFA-BASIC 3.0 Amiga 


Ein Lehrbuch für Programmieranfänger. 

Dietmar Schell vermittelt auch dem unerfahrenen Programmierer 

Ideen und Anwendungsbeispiele für das Programmieren r\ 

in GFA-BASIC. 248 Seiten, Hardcover, ISBN 3-89317-009-X DfVt 29/- 




Wer schon Erfahrung auf dem Amiga oder in irgendeinem 
BASIC-Dialekt hat, wird von den beiden Autoren bestens betreut. 

Man erfährt und lernt eine Menge über Programmiertricks, |%|U| n 
nützliche und verwendbare Prozeduren, l#IVI 

Anwendungen und die Besonderheiten des GFA-BASIC für Amiga. 

329 Seiten, Hardcover, inkl. Diskette, ISBN 3-89317-010-3 


GFA-ASSEMBLER Amiga 


Professioneller Makro-Assembler für 68000-Programmierer: 
Leistungsfähiger Editor mit integriertem Assembler und Linker. 
Nachladbarer Debugger. 

Jetzt auch für die Commodore-Amiga-Computer lieferbar. 


149,- 



ZOETROPE 


Das Computer-Animationssystem für Ihren Amiga 
mit der Funktionalität und den Eigenschaften, die 
man nur bei erstklassigen Grafiksystemen findet. 

Das professionelle 2D-Animationsprogramm von 
ANTIC-Software, exklusiv von GFA. Umfangreiches 
Handbuch und Programm in Deutsch. DM 198,- 


GFA Systemtechnik GmbH 
Heerdter Sandberg 30 
D-4000 Düsseldorf 11 
Tel. 0211/55 04-0 Fax 0211/55 04-44 















